Dim h
With Exg2antt1
	.BeginUpdate()
	.Columns.Add("Tasks")
	With .Chart
		.LevelCount = 2
		.set_PaneWidth(False,40)
		.FirstVisibleDate = #6/20/2005#
		.HistogramVisible = True
		.HistogramHeight = 64
		.HistogramView = exontrol.EXG2ANTTLib.HistogramViewEnum.exHistogramAllItems
		With .Bars.Item("Split")
			.Pattern = exontrol.EXG2ANTTLib.PatternEnum.exPatternBDiagonal
			.Shape = exontrol.EXG2ANTTLib.ShapeBarEnum.exShapeThinUp
			.Color = Color.FromArgb(0,0,128)
		End With
		With .Bars.Add("Task:Split")
			.Color = Color.FromArgb(0,0,128)
			.Shortcut = "WorkingTask"
			.Pattern = exontrol.EXG2ANTTLib.PatternEnum.exPatternBDiagonal
			.HistogramPattern = exontrol.EXG2ANTTLib.PatternEnum.exPatternBDiagonal
			.HistogramType = exontrol.EXG2ANTTLib.HistogramTypeEnum.exHistOverAllocation
		End With
		With .Bars.Item("Task")
			.Color = Color.FromArgb(0,0,255)
			.Pattern = exontrol.EXG2ANTTLib.PatternEnum.exPatternFDiagonal
			.HistogramType = exontrol.EXG2ANTTLib.HistogramTypeEnum.exHistOverAllocation
			.HistogramPattern = exontrol.EXG2ANTTLib.PatternEnum.exPatternFDiagonal
		End With
	End With
	With .Items
		h = .AddItem("True")
		.AddBar(h,"WorkingTask",#6/23/2005#,#6/29/2005#)
		.set_ItemBar(h,"",exontrol.EXG2ANTTLib.ItemBarPropertyEnum.exBarEffort,4)
		.set_ItemBar(h,"",exontrol.EXG2ANTTLib.ItemBarPropertyEnum.exBarKeepWorkingCount,True)
		h = .AddItem("False")
		.AddBar(h,"Task",#6/23/2005#,#6/29/2005#)
		.set_ItemBar(h,"",exontrol.EXG2ANTTLib.ItemBarPropertyEnum.exBarEffort,4)
		.set_ItemBar(h,"",exontrol.EXG2ANTTLib.ItemBarPropertyEnum.exBarKeepWorkingCount,False)
	End With
	.EndUpdate()
End With

With Exg2antt1
	.BeginUpdate()
	.Columns.Add("Tasks")
	With .Chart
		.set_PaneWidth(False,0)
		.NonworkingDays = 0
		.FirstVisibleDate = 0
		.ToolTip = ""
		With .get_Level(0)
			.Label = "<%i%>"
			.ToolTip = ""
		End With
		.UnitWidth = 24
	End With
	With .Items
		.AddBar(.AddItem("Task 1"),"Task",2,4)
		.AddBar(.AddItem("Task 2"),"Task",6,10)
	End With
	.EndUpdate()
End With

' DateChange event - Occurs when the first visible date is changed.
Private Sub Exg2antt1_DateChange(ByVal sender As System.Object) Handles Exg2antt1.DateChange
	With Exg2antt1
		.Chart.FirstVisibleDate = 0
		.set_ScrollPartEnable(exontrol.EXG2ANTTLib.ScrollBarEnum.exHChartScroll,exontrol.EXG2ANTTLib.ScrollPartEnum.exLeftBPart,False)
	End With
End Sub

With Exg2antt1
	.BeginUpdate()
	With .Chart
		.set_PaneWidth(False,0)
		.NonworkingDays = 0
		.FirstVisibleDate = 0
		.ToolTip = ""
		With .get_Level(0)
			.Label = "<%i%>"
			.ToolTip = "<%i%>"
		End With
		.UnitWidth = 24
	End With
	.EndUpdate()
End With

With Exg2antt1
	.BeginUpdate()
	With .Chart
		.set_PaneWidth(False,0)
		.NonworkingDays = 0
		.FirstVisibleDate = 0
		.ToolTip = ""
		With .get_Level(0)
			.Label = "<%i%>"
			.ToolTip = ""
		End With
		.UnitWidth = 24
	End With
	.EndUpdate()
End With

With Exg2antt1
	.BeginUpdate()
	.Columns.Add("Task")
	With .Chart
		.set_PaneWidth(False,0)
		.FirstVisibleDate = #12/24/2000#
		.LevelCount = 2
		With .Bars.Add("Custom")
			.Shape = exontrol.EXG2ANTTLib.ShapeBarEnum.exShapeEmpty
			.StartShape = exontrol.EXG2ANTTLib.ShapeCornerEnum.exShapeIconUp1
			.EndShape = exontrol.EXG2ANTTLib.ShapeCornerEnum.exShapeIconEmpty
		End With
	End With
	With .Items
		.AddBar(.AddItem(""),"Custom",#1/2/2001#,#1/2/2001#,"K1","This TYPE of bar can not be resized.")
	End With
	.EndUpdate()
End With

Dim h1,h2,h3
With Exg2antt1
	.BeginUpdate()
	.Columns.Add("Task")
	With .Chart
		.Bars.Add("Task:Split").Shortcut = "Task"
		.FirstVisibleDate = #12/27/2000#
		.set_PaneWidth(False,64)
		.LevelCount = 2
		.ShowNonworkingUnits = False
		.ShowNonworkingDates = False
		.NonworkingDaysPattern = exontrol.EXG2ANTTLib.PatternEnum.exPatternEmpty
	End With
	With .Items
		h1 = .AddItem("Task 1")
		.AddBar(h1,"Task",#1/2/2001#,#1/4/2001#,"K1")
		h2 = .AddItem("Task 2")
		.set_ItemNonworkingUnits(h2,False,"weekday(value) = 1")
		.AddBar(h2,"Task",#1/4/2001#,#1/6/2001#,"K2")
		.AddLink("L1",h1,"K1",h2,"K2")
		h3 = .AddItem("Task 3")
		.AddBar(h3,"Task",#1/8/2001#,#1/10/2001#,"K3")
		.AddLink("L2",h2,"K2",h3,"K3")
	End With
	.EndUpdate()
End With

Dim h1,h2,h3
With Exg2antt1
	.BeginUpdate()
	.Columns.Add("Task")
	With .Chart
		.Bars.Add("Task:Split").Shortcut = "Task"
		.FirstVisibleDate = #12/27/2000#
		.set_PaneWidth(False,64)
		.LevelCount = 2
		.ShowNonworkingUnits = False
		.ShowNonworkingDates = False
	End With
	With .Items
		h1 = .AddItem("Task 1")
		.AddBar(h1,"Task",#1/2/2001#,#1/4/2001#,"K1")
		h2 = .AddItem("Task 2")
		.set_ItemNonworkingUnits(h2,False,"weekday(value) = 1")
		.AddBar(h2,"Task",#1/4/2001#,#1/6/2001#,"K2")
		.AddLink("L1",h1,"K1",h2,"K2")
		h3 = .AddItem("Task 3")
		.AddBar(h3,"Task",#1/8/2001#,#1/10/2001#,"K3")
		.AddLink("L2",h2,"K2",h3,"K3")
	End With
	.EndUpdate()
End With

With Exg2antt1
	.BeginUpdate()
	With .Chart
		.FirstVisibleDate = #1/1/2008#
		.set_PaneWidth(False,0)
		.LevelCount = 2
		.ShowNonworkingUnits = False
		.ShowNonworkingDates = False
	End With
	.EndUpdate()
End With

Dim h,h1
With Exg2antt1
	.BeginUpdate()
	.FullRowSelect = exontrol.EXG2ANTTLib.CellSelectEnum.exRectSel
	.SingleSel = False
	.ReadOnly = exontrol.EXG2ANTTLib.ReadOnlyEnum.exReadOnly
	.MarkSearchColumn = False
	.ShowFocusRect = False
	.LinesAtRoot = exontrol.EXG2ANTTLib.LinesAtRootEnum.exLinesAtRoot
	.SelForeColor = Color.FromArgb(0,0,0)
	.SelBackColor = Color.FromArgb(200,225,242)
	With .Columns
		.Add("A")
		With .Add("B")
			.AllowSizing = False
			.Width = 24
		End With
		With .Add("C")
			.AllowSizing = False
			.Width = 24
			.set_Def(exontrol.EXG2ANTTLib.DefColumnEnum.exCellHasCheckBox,1)
			.PartialCheck = True
		End With
		With .Add("D")
			.AllowSizing = False
			.Width = 24
			.set_Def(exontrol.EXG2ANTTLib.DefColumnEnum.exCellHasRadioButton,1)
		End With
	End With
	With .Items
		h = .InsertItem(Nothing,Nothing,"Group 1")
		h1 = .InsertItem(h,Nothing,16)
		.set_CellValue(h1,1,17)
		h1 = .InsertItem(h,Nothing,2)
		.set_CellValue(h1,1,11)
		h1 = .InsertItem(h,Nothing,2)
		.set_ItemBackColor(h1,Color.FromArgb(240,240,240))
		.set_CellValue(h1,1,9)
		.set_ExpandItem(h,True)
		h = .InsertItem(Nothing,Nothing,"Group 2")
		.set_CellValueFormat(h,2,exontrol.EXG2ANTTLib.ValueFormatEnum.exHTML)
		h1 = .InsertItem(h,Nothing,16)
		.set_CellValue(h1,1,9)
		h1 = .InsertItem(h,Nothing,12)
		.set_CellValue(h1,1,11)
		h1 = .InsertItem(h,Nothing,2)
		.set_CellValue(h1,1,2)
		.set_ExpandItem(h,True)
		.set_SelectItem(h,True)
	End With
	.EndUpdate()
End With

With Exg2antt1
	.BeginUpdate()
	With .Chart
		.FirstVisibleDate = #1/1/2008#
		.set_PaneWidth(False,0)
		.LevelCount = 2
		.AllowInsideZoom = True
		.AllowResizeInsideZoom = False
		.InsideZoomOnDblClick = False
		With .InsideZooms
			.SplitBaseLevel = False
			.DefaultWidth = 0
			.Add(#1/4/2008#)
			.Add(#1/5/2008#)
			.Add(#1/6/2008#)
		End With
		.SelectLevel = 1
		.set_SelectDate(#1/5/2008#,True)
	End With
	.EndUpdate()
End With

' BarResizing event - Occurs when a bar is moving or resizing.
Private Sub Exg2antt1_BarResizing(ByVal sender As System.Object,ByVal Item As Integer,ByVal Key As Object) Handles Exg2antt1.BarResizing
	With Exg2antt1
		.Items.SchedulePDM(Item,Key)
	End With
End Sub

Dim h1,h2,h3,h4
With Exg2antt1
	.BeginUpdate()
	.Items.AllowCellValueToItemBar = True
	.Columns.Add("Task")
	With .Columns.Add("Working")
		.set_Def(exontrol.EXG2ANTTLib.DefColumnEnum.exCellValueToItemBarProperty,258)
		.Editor.EditType = exontrol.EXG2ANTTLib.EditTypeEnum.SpinType
	End With
	With .Chart
		.Bars.Add("Task:Split").Shortcut = "Task"
		.FirstVisibleDate = #12/28/2000#
		.set_PaneWidth(False,96)
		.AllowLinkBars = False
		.AllowCreateBar = exontrol.EXG2ANTTLib.CreateBarEnum.exNoCreateBar
	End With
	With .Items
		h1 = .AddItem("Task 1")
		.AddBar(h1,"Task",#1/2/2001#,#1/4/2001#,"")
		h2 = .AddItem("Task 2")
		.AddBar(h2,"Task",#1/2/2001#,#1/4/2001#,"")
		.AddLink("L1",h1,"",h2,"")
		h3 = .AddItem("Task 3")
		.AddBar(h3,"Task",#1/2/2001#,#1/6/2001#,"")
		.AddLink("L2",h2,"",h3,"")
		.set_Link("L2",exontrol.EXG2ANTTLib.LinkPropertyEnum.exLinkText,"FF")
		.set_Link("L2",exontrol.EXG2ANTTLib.LinkPropertyEnum.exLinkStartPos,2)
		.set_Link("L2",exontrol.EXG2ANTTLib.LinkPropertyEnum.exLinkEndPos,2)
		h4 = .AddItem("Task 4")
		.AddBar(h4,"Task",#1/2/2001#,#1/4/2001#,"")
		.AddLink("L3",h4,"",h3,"")
		.set_ItemBar(0,"<*>",exontrol.EXG2ANTTLib.ItemBarPropertyEnum.exBarKeepWorkingCount,True)
		.SchedulePDM(.FirstVisibleItem,"")
	End With
	.EndUpdate()
End With

' BarResizing event - Occurs when a bar is moving or resizing.
Private Sub Exg2antt1_BarResizing(ByVal sender As System.Object,ByVal Item As Integer,ByVal Key As Object) Handles Exg2antt1.BarResizing
	With Exg2antt1
		.Items.SchedulePDM(Item,Key)
	End With
End Sub

Dim h1,h2,h3,h4
With Exg2antt1
	.BeginUpdate()
	.Items.AllowCellValueToItemBar = True
	.Columns.Add("Task")
	.Columns.Add("Working").set_Def(exontrol.EXG2ANTTLib.DefColumnEnum.exCellValueToItemBarProperty,258)
	With .Chart
		.Bars.Add("Task:Split").Shortcut = "Task"
		.FirstVisibleDate = #12/28/2000#
		.set_PaneWidth(False,96)
		.AllowLinkBars = False
		.AllowCreateBar = exontrol.EXG2ANTTLib.CreateBarEnum.exNoCreateBar
	End With
	With .Items
		h1 = .AddItem("Task 1")
		.AddBar(h1,"Task",#1/2/2001#,#1/4/2001#,"")
		h2 = .AddItem("Task 2")
		.AddBar(h2,"Task",#1/2/2001#,#1/4/2001#,"")
		.AddLink("L1",h1,"",h2,"")
		h3 = .AddItem("Task 3")
		.AddBar(h3,"Task",#1/2/2001#,#1/6/2001#,"")
		.AddLink("L2",h2,"",h3,"")
		.set_Link("L2",exontrol.EXG2ANTTLib.LinkPropertyEnum.exLinkText,"FF")
		.set_Link("L2",exontrol.EXG2ANTTLib.LinkPropertyEnum.exLinkStartPos,2)
		.set_Link("L2",exontrol.EXG2ANTTLib.LinkPropertyEnum.exLinkEndPos,2)
		h4 = .AddItem("Task 4")
		.AddBar(h4,"Task",#1/2/2001#,#1/4/2001#,"")
		.AddLink("L3",h4,"",h3,"")
		.set_ItemBar(0,"<*>",exontrol.EXG2ANTTLib.ItemBarPropertyEnum.exBarKeepWorkingCount,True)
		.SchedulePDM(.FirstVisibleItem,"")
	End With
	.EndUpdate()
End With

' BarResizing event - Occurs when a bar is moving or resizing.
Private Sub Exg2antt1_BarResizing(ByVal sender As System.Object,ByVal Item As Integer,ByVal Key As Object) Handles Exg2antt1.BarResizing
	With Exg2antt1
		.Items.SchedulePDM(Item,Key)
	End With
End Sub

Dim h1,h2,h3,h4
With Exg2antt1
	.BeginUpdate()
	.Columns.Add("Task")
	With .Chart
		.Bars.Add("Task:Split").Shortcut = "Task"
		.FirstVisibleDate = #12/28/2000#
		.set_PaneWidth(False,48)
		.AllowLinkBars = False
		.AllowCreateBar = exontrol.EXG2ANTTLib.CreateBarEnum.exNoCreateBar
	End With
	With .Items
		h1 = .AddItem("Task 1")
		.AddBar(h1,"Task",#1/2/2001#,#1/4/2001#,"K1")
		h2 = .AddItem("Task 2")
		.AddBar(h2,"Task",#1/2/2001#,#1/4/2001#,"K2")
		.AddLink("L1",h1,"K1",h2,"K2")
		h3 = .AddItem("Task 3")
		.AddBar(h3,"Task",#1/2/2001#,#1/6/2001#,"K3")
		.AddLink("L2",h2,"K2",h3,"K3")
		.set_Link("L2",exontrol.EXG2ANTTLib.LinkPropertyEnum.exLinkText,"FF")
		.set_Link("L2",exontrol.EXG2ANTTLib.LinkPropertyEnum.exLinkStartPos,2)
		.set_Link("L2",exontrol.EXG2ANTTLib.LinkPropertyEnum.exLinkEndPos,2)
		h4 = .AddItem("Task 4")
		.AddBar(h4,"Task",#1/2/2001#,#1/4/2001#,"K4")
		.AddLink("L3",h4,"K4",h3,"K3")
		.set_ItemBar(0,"<*>",exontrol.EXG2ANTTLib.ItemBarPropertyEnum.exBarKeepWorkingCount,True)
		.SchedulePDM(0,"K1")
	End With
	.EndUpdate()
End With

' BarResizing event - Occurs when a bar is moving or resizing.
Private Sub Exg2antt1_BarResizing(ByVal sender As System.Object,ByVal Item As Integer,ByVal Key As Object) Handles Exg2antt1.BarResizing
	With Exg2antt1
		.Items.SchedulePDM(Item,Key)
	End With
End Sub

Dim h1,h2,h3,h4
With Exg2antt1
	.BeginUpdate()
	.Columns.Add("Task")
	With .Chart
		.FirstVisibleDate = #12/28/2000#
		.set_PaneWidth(False,48)
		.AllowLinkBars = False
		.AllowCreateBar = exontrol.EXG2ANTTLib.CreateBarEnum.exNoCreateBar
	End With
	With .Items
		h1 = .AddItem("Task 1")
		.AddBar(h1,"Task",#1/2/2001#,#1/4/2001#,"K1")
		h2 = .AddItem("Task 2")
		.AddBar(h2,"Task",#1/2/2001#,#1/4/2001#,"K2")
		.AddLink("L1",h1,"K1",h2,"K2")
		h3 = .AddItem("Task 3")
		.AddBar(h3,"Task",#1/2/2001#,#1/6/2001#,"K3")
		.AddLink("L2",h2,"K2",h3,"K3")
		.set_Link("L2",exontrol.EXG2ANTTLib.LinkPropertyEnum.exLinkText,"FF")
		.set_Link("L2",exontrol.EXG2ANTTLib.LinkPropertyEnum.exLinkStartPos,2)
		.set_Link("L2",exontrol.EXG2ANTTLib.LinkPropertyEnum.exLinkEndPos,2)
		h4 = .AddItem("Task 4")
		.AddBar(h4,"Task",#1/2/2001#,#1/4/2001#,"K4")
		.AddLink("L3",h4,"K4",h3,"K3")
		.SchedulePDM(0,"K1")
	End With
	.EndUpdate()
End With

' BarResize event - Occurs when a bar is moved or resized.
Private Sub Exg2antt1_BarResize(ByVal sender As System.Object,ByVal Item As Integer,ByVal Key As Object) Handles Exg2antt1.BarResize
	With Exg2antt1
		.Items.SchedulePDM(Item,Key)
	End With
End Sub

Dim h1,h2,h3
With Exg2antt1
	.BeginUpdate()
	.Columns.Add("Task")
	With .Chart
		.FirstVisibleDate = #1/1/2001#
		.set_PaneWidth(False,48)
		.AllowLinkBars = False
		.AllowCreateBar = exontrol.EXG2ANTTLib.CreateBarEnum.exNoCreateBar
	End With
	With .Items
		h1 = .AddItem("Task 1")
		.AddBar(h1,"Task",#1/2/2001#,#1/4/2001#,"K1")
		h2 = .AddItem("Task 2")
		.AddBar(h2,"Task",#1/2/2001#,#1/4/2001#,"K2")
		.AddLink("L1",h1,"K1",h2,"K2")
		h3 = .AddItem("Task 3")
		.AddBar(h3,"Task",#1/2/2001#,#1/4/2001#,"K3")
		.AddLink("L2",h2,"K2",h3,"K3")
		.SchedulePDM(0,"K1")
	End With
	.EndUpdate()
End With

' ScrollButtonClick event - Occurs when the user clicks a button in the scrollbar.
Private Sub Exg2antt1_ScrollButtonClick(ByVal sender As System.Object,ByVal ScrollBar As exontrol.EXG2ANTTLib.ScrollBarEnum,ByVal ScrollPart As exontrol.EXG2ANTTLib.ScrollPartEnum) Handles Exg2antt1.ScrollButtonClick
	With Exg2antt1
		Debug.Print( ScrollBar )
		Debug.Print( ScrollPart )
	End With
End Sub

With Exg2antt1
	.set_ScrollPartVisible(exontrol.EXG2ANTTLib.ScrollBarEnum.exHScroll,exontrol.EXG2ANTTLib.ScrollPartEnum.exLeftB1Part,True)
	.set_ScrollPartVisible(exontrol.EXG2ANTTLib.ScrollBarEnum.exHScroll,exontrol.EXG2ANTTLib.ScrollPartEnum.exLeftB2Part,True)
	.set_ScrollPartVisible(exontrol.EXG2ANTTLib.ScrollBarEnum.exHScroll,exontrol.EXG2ANTTLib.ScrollPartEnum.exRightB6Part,True)
	.set_ScrollPartVisible(exontrol.EXG2ANTTLib.ScrollBarEnum.exHScroll,exontrol.EXG2ANTTLib.ScrollPartEnum.exRightB5Part,True)
	.ScrollBars = exontrol.EXG2ANTTLib.ScrollBarsEnum.exDisableNoHorizontal
End With

' AnchorClick event - Occurs when an anchor element is clicked.
Private Sub Exg2antt1_AnchorClick(ByVal sender As System.Object,ByVal AnchorID As String,ByVal Options As String) Handles Exg2antt1.AnchorClick
	With Exg2antt1
		Debug.Print( AnchorID )
		Debug.Print( Options )
	End With
End Sub

With Exg2antt1
	.Columns.Add("Default").set_Def(exontrol.EXG2ANTTLib.DefColumnEnum.exCellValueFormat,1)
	With .Items
		.AddItem("This is a link: <aex.com;1>www.exontrol.com</a>")
		.AddItem("This is a link: <aex.net;2>www.exontrol.net</a>")
	End With
End With

' DblClick event - Occurs when the user dblclk the left mouse button over an object.
Private Sub Exg2antt1_DblClick(ByVal sender As System.Object,ByVal Shift As Short,ByVal X As Integer,ByVal Y As Integer) Handles Exg2antt1.DblClick
	With Exg2antt1
		.Edit()
	End With
End Sub

With Exg2antt1
	.BeginUpdate()
	.AutoEdit = False
	.MarkSearchColumn = False
	.Columns.Add("Edit1").Editor.EditType = exontrol.EXG2ANTTLib.EditTypeEnum.EditType
	.Columns.Add("Edit2").Editor.EditType = exontrol.EXG2ANTTLib.EditTypeEnum.EditType
	With .Items
		.set_CellValue(.AddItem(1),1,2)
	End With
	With .Items
		.set_CellValue(.AddItem(3),1,4)
	End With
	.EndUpdate()
End With

' DblClick event - Occurs when the user dblclk the left mouse button over an object.
Private Sub Exg2antt1_DblClick(ByVal sender As System.Object,ByVal Shift As Short,ByVal X As Integer,ByVal Y As Integer) Handles Exg2antt1.DblClick
	With Exg2antt1
		.Edit()
	End With
End Sub

With Exg2antt1
	.BeginUpdate()
	.AutoEdit = False
	.MarkSearchColumn = False
	.Columns.Add("Edit1").Editor.EditType = exontrol.EXG2ANTTLib.EditTypeEnum.EditType
	.Columns.Add("Edit2").Editor.EditType = exontrol.EXG2ANTTLib.EditTypeEnum.EditType
	With .Items
		.set_CellValue(.AddItem(1),1,2)
	End With
	With .Items
		.set_CellValue(.AddItem(3),1,4)
	End With
	.EndUpdate()
End With

' Change event - Occurs when the user changes the cell's content.
Private Sub Exg2antt1_Change(ByVal sender As System.Object,ByVal Item As Integer,ByVal ColIndex As Integer,ByRef NewValue As Object) Handles Exg2antt1.Change
	With Exg2antt1
		Debug.Print( "Old-Value:" )
		Debug.Print( .Items.get_CellValue(Item,ColIndex) )
		Debug.Print( "New-Value:" )
		Debug.Print( NewValue )
	End With
End Sub

With Exg2antt1
	.BeginUpdate()
	.MarkSearchColumn = False
	.Columns.Add("Edit1").Editor.EditType = exontrol.EXG2ANTTLib.EditTypeEnum.EditType
	.Columns.Add("Edit2").Editor.EditType = exontrol.EXG2ANTTLib.EditTypeEnum.EditType
	With .Items
		.set_CellValue(.AddItem(1),1,2)
	End With
	With .Items
		.set_CellValue(.AddItem(3),1,4)
	End With
	.EndUpdate()
End With

' FilterChange event - Occurs when the filter was changed.
Private Sub Exg2antt1_FilterChange(ByVal sender As System.Object) Handles Exg2antt1.FilterChange
	With Exg2antt1
		.FilterBarCaption = .Items.VisibleCount
	End With
End Sub

Dim h0
With Exg2antt1
	.BeginUpdate()
	.Chart.set_PaneWidth(True,0)
	.ColumnAutoResize = True
	.ContinueColumnScroll = False
	.FocusColumnIndex = 1
	.MarkSearchColumn = False
	.SearchColumnIndex = 1
	.FilterBarPromptVisible = True
	.FilterBarPromptType = exontrol.EXG2ANTTLib.FilterPromptEnum.exFilterPromptContainsAll
	.FilterBarPromptPattern = "london"
	With .Columns
		.Add("Name").Width = 96
		.Add("Title").Width = 96
		.Add("City")
	End With
	With .Items
		h0 = .AddItem("Nancy Davolio")
		.set_CellValue(h0,1,"Sales Representative")
		.set_CellValue(h0,2,"Seattle")
		h0 = .AddItem("Andrew Fuller")
		.set_CellValue(h0,1,"Vice President, Sales")
		.set_CellValue(h0,2,"Tacoma")
		.set_SelectItem(h0,True)
		h0 = .AddItem("Janet Leverling")
		.set_CellValue(h0,1,"Sales Representative")
		.set_CellValue(h0,2,"Kirkland")
		h0 = .AddItem("Margaret Peacock")
		.set_CellValue(h0,1,"Sales Representative")
		.set_CellValue(h0,2,"Redmond")
		h0 = .AddItem("Steven Buchanan")
		.set_CellValue(h0,1,"Sales Manager")
		.set_CellValue(h0,2,"London")
		h0 = .AddItem("Michael Suyama")
		.set_CellValue(h0,1,"Sales Representative")
		.set_CellValue(h0,2,"London")
		h0 = .AddItem("Robert King")
		.set_CellValue(h0,1,"Sales Representative")
		.set_CellValue(h0,2,"London")
		h0 = .AddItem("Laura Callahan")
		.set_CellValue(h0,1,"Inside Sales Coordinator")
		.set_CellValue(h0,2,"Seattle")
		h0 = .AddItem("Anne Dodsworth")
		.set_CellValue(h0,1,"Sales Representative")
		.set_CellValue(h0,2,"London")
	End With
	.EndUpdate()
End With

' MouseMove event - Occurs when the user moves the mouse.
Private Sub Exg2antt1_MouseMoveEvent(ByVal sender As System.Object,ByVal Button As Short,ByVal Shift As Short,ByVal X As Integer,ByVal Y As Integer) Handles Exg2antt1.MouseMoveEvent
	Dim c,h,hit
	With Exg2antt1
		.BeginUpdate()
		h = .get_ItemFromPoint(-1,-1,c,hit)
		With .Items
			.ClearItemBackColor(Exg2antt1.get_Background(&H200 Or exontrol.EXG2ANTTLib.BackgroundPartEnum.exHSRight Or exontrol.EXG2ANTTLib.BackgroundPartEnum.exListOLEDropPosition))
			.set_ItemBackColor(h,Color.FromArgb(240,250,240))
		End With
		.set_Background(&H200 Or exontrol.EXG2ANTTLib.BackgroundPartEnum.exHSRight Or exontrol.EXG2ANTTLib.BackgroundPartEnum.exListOLEDropPosition,h)
		.EndUpdate()
	End With
End Sub

Dim h
With Exg2antt1
	.BeginUpdate()
	.LinesAtRoot = exontrol.EXG2ANTTLib.LinesAtRootEnum.exLinesAtRoot
	.DrawGridLines = exontrol.EXG2ANTTLib.GridLinesEnum.exHLines
	.SelBackColor = Color.FromArgb(240,250,240)
	.SelForeColor = Color.FromArgb(0,0,0)
	.ShowFocusRect = False
	With .Chart
		.SelBackColor = Color.FromArgb(240,250,240)
	End With
	.Columns.Add("Items")
	With .Items
		h = .AddItem("R1")
		.InsertItem(h,Nothing,"Cell 1.1")
		.InsertItem(h,Nothing,"Cell 1.2")
		.set_ExpandItem(h,True)
		h = .AddItem("R2")
		.InsertItem(h,Nothing,"Cell 2.1")
		.InsertItem(h,Nothing,"Cell 2.2")
		.set_ExpandItem(h,True)
	End With
	.EndUpdate()
End With

' MouseMove event - Occurs when the user moves the mouse.
Private Sub Exg2antt1_MouseMoveEvent(ByVal sender As System.Object,ByVal Button As Short,ByVal Shift As Short,ByVal X As Integer,ByVal Y As Integer) Handles Exg2antt1.MouseMoveEvent
	Dim c,h,hit
	With Exg2antt1
		h = .get_ItemFromPoint(-1,-1,c,hit)
		Debug.Print( "Handle" )
		Debug.Print( h )
		Debug.Print( "Index" )
		Debug.Print( .Items.get_ItemToIndex(h) )
	End With
End Sub

Dim h
With Exg2antt1
	.BeginUpdate()
	.LinesAtRoot = exontrol.EXG2ANTTLib.LinesAtRootEnum.exLinesAtRoot
	.DrawGridLines = exontrol.EXG2ANTTLib.GridLinesEnum.exHLines
	.Columns.Add("Items")
	With .Items
		h = .AddItem("R1")
		.InsertItem(h,Nothing,"Cell 1.1")
		.InsertItem(h,Nothing,"Cell 1.2")
		.set_ExpandItem(h,True)
		h = .AddItem("R2")
		.InsertItem(h,Nothing,"Cell 2.1")
		.InsertItem(h,Nothing,"Cell 2.2")
		.set_ExpandItem(h,True)
	End With
	.EndUpdate()
End With

' MouseMove event - Occurs when the user moves the mouse.
Private Sub Exg2antt1_MouseMoveEvent(ByVal sender As System.Object,ByVal Button As Short,ByVal Shift As Short,ByVal X As Integer,ByVal Y As Integer) Handles Exg2antt1.MouseMoveEvent
	With Exg2antt1
		Debug.Print( .get_ColumnFromPoint(-1,0) )
	End With
End Sub

Dim h
With Exg2antt1
	.BeginUpdate()
	.LinesAtRoot = exontrol.EXG2ANTTLib.LinesAtRootEnum.exLinesAtRoot
	.Columns.Add("P1")
	.Columns.Add("P2")
	.DrawGridLines = exontrol.EXG2ANTTLib.GridLinesEnum.exAllLines
	With .Items
		h = .AddItem("R1")
		.set_CellValue(h,1,"R2")
		.set_CellValue(.InsertItem(h,Nothing,"Cell 1.1"),1,"Cell 1.2")
		.set_CellValue(.InsertItem(h,Nothing,"Cell 2.1"),1,"Cell 2.2")
		.set_ExpandItem(h,True)
	End With
	.EndUpdate()
End With

' MouseMove event - Occurs when the user moves the mouse.
Private Sub Exg2antt1_MouseMoveEvent(ByVal sender As System.Object,ByVal Button As Short,ByVal Shift As Short,ByVal X As Integer,ByVal Y As Integer) Handles Exg2antt1.MouseMoveEvent
	With Exg2antt1
		Debug.Print( .get_ColumnFromPoint(-1,-1) )
	End With
End Sub

Dim h
With Exg2antt1
	.BeginUpdate()
	.LinesAtRoot = exontrol.EXG2ANTTLib.LinesAtRootEnum.exLinesAtRoot
	.DrawGridLines = exontrol.EXG2ANTTLib.GridLinesEnum.exAllLines
	.Columns.Add("P1")
	.Columns.Add("P2")
	With .Items
		h = .AddItem("R1")
		.set_CellValue(h,1,"R2")
		.set_CellValue(.InsertItem(h,Nothing,"Cell 1.1"),1,"Cell 1.2")
		.set_CellValue(.InsertItem(h,Nothing,"Cell 2.1"),1,"Cell 2.2")
		.set_ExpandItem(h,True)
	End With
	.EndUpdate()
End With

' MouseMove event - Occurs when the user moves the mouse.
Private Sub Exg2antt1_MouseMoveEvent(ByVal sender As System.Object,ByVal Button As Short,ByVal Shift As Short,ByVal X As Integer,ByVal Y As Integer) Handles Exg2antt1.MouseMoveEvent
	Dim c,h,hit
	With Exg2antt1
		h = .get_ItemFromPoint(-1,-1,c,hit)
		Debug.Print( .Items.get_CellCaption(h,c) )
	End With
End Sub

Dim h
With Exg2antt1
	.BeginUpdate()
	.LinesAtRoot = exontrol.EXG2ANTTLib.LinesAtRootEnum.exLinesAtRoot
	.Columns.Add("Items")
	With .Items
		h = .AddItem("R1")
		.InsertItem(h,Nothing,"Cell 1.1")
		.InsertItem(h,Nothing,"Cell 1.2")
		.set_ExpandItem(h,True)
		h = .AddItem("R2")
		.InsertItem(h,Nothing,"Cell 2.1")
		.InsertItem(h,Nothing,"Cell 2.2")
		.set_ExpandItem(h,True)
	End With
	.EndUpdate()
End With

Dim h
With Exg2antt1
	.BeginUpdate()
	.DrawGridLines = exontrol.EXG2ANTTLib.GridLinesEnum.exAllLines
	.GridLineStyle = exontrol.EXG2ANTTLib.GridLinesStyleEnum.exGridLinesVSolid Or exontrol.EXG2ANTTLib.GridLinesStyleEnum.exGridLinesHDot4
	.Columns.Add("C1")
	.Columns.Add("C2")
	.Columns.Add("C3")
	With .Items
		h = .AddItem("Item 1")
		.set_CellValue(h,1,"SubItem 1.2")
		.set_CellValue(h,2,"SubItem 1.3")
		h = .AddItem("Item 2")
		.set_CellValue(h,1,"SubItem 2.2")
		.set_CellValue(h,2,"SubItem 2.3")
	End With
	.EndUpdate()
End With

Dim h
With Exg2antt1
	.BeginUpdate()
	.DrawGridLines = exontrol.EXG2ANTTLib.GridLinesEnum.exAllLines
	.GridLineColor = Color.FromArgb(220,220,220)
	With .Chart
		.set_PaneWidth(False,48)
		.FirstVisibleDate = #1/1/2001#
		.DrawGridLines = exontrol.EXG2ANTTLib.GridLinesEnum.exAllLines
		.GridLineStyle = exontrol.EXG2ANTTLib.GridLinesStyleEnum.exGridLinesBehind
		.LevelCount = 2
		With .get_Level(1)
			.DrawGridLines = True
			.GridLineColor = Color.FromArgb(220,220,220)
		End With
		With .Bars.Item("Task")
			.Pattern = exontrol.EXG2ANTTLib.PatternEnum.exPatternSolid
			.Height = 14
		End With
	End With
	.Columns.Add("Column")
	With .Items
		h = .AddItem("Item 1")
		.AddBar(h,"Task",#1/2/2001#,#1/5/2001#,"A")
		.AddBar(h,"Task",#1/8/2001#,#1/15/2001#,"B")
	End With
	.EndUpdate()
End With

Dim h
With Exg2antt1
	.BeginUpdate()
	.DrawGridLines = exontrol.EXG2ANTTLib.GridLinesEnum.exAllLines
	.GridLineStyle = exontrol.EXG2ANTTLib.GridLinesStyleEnum.exGridLinesDash
	With .Chart
		.set_PaneWidth(False,48)
		.FirstVisibleDate = #1/1/2001#
		.DrawGridLines = exontrol.EXG2ANTTLib.GridLinesEnum.exAllLines
		.GridLineStyle = exontrol.EXG2ANTTLib.GridLinesStyleEnum.exGridLinesDash
		.LevelCount = 2
		.get_Level(1).DrawGridLines = True
		With .get_Level(0)
			.GridLineColor = Color.FromArgb(255,0,0)
			.GridLineStyle = exontrol.EXG2ANTTLib.GridLinesStyleEnum.exGridLinesVSolid
		End With
		.Bars.Item("Task").Pattern = exontrol.EXG2ANTTLib.PatternEnum.exPatternSolid
	End With
	.Columns.Add("Column")
	With .Items
		h = .AddItem("Item 1")
		.AddBar(h,"Task",#1/2/2001#,#1/5/2001#,"A")
		.AddBar(h,"Task",#1/8/2001#,#1/15/2001#,"B")
	End With
	.EndUpdate()
End With

Dim h
With Exg2antt1
	.BeginUpdate()
	.DrawGridLines = exontrol.EXG2ANTTLib.GridLinesEnum.exAllLines
	.GridLineStyle = exontrol.EXG2ANTTLib.GridLinesStyleEnum.exGridLinesSolid
	With .Chart
		.set_PaneWidth(False,48)
		.FirstVisibleDate = #1/1/2001#
		.DrawGridLines = exontrol.EXG2ANTTLib.GridLinesEnum.exAllLines
		.GridLineStyle = exontrol.EXG2ANTTLib.GridLinesStyleEnum.exGridLinesSolid
		.LevelCount = 2
		.get_Level(1).DrawGridLines = True
		.Bars.Item("Task").Pattern = exontrol.EXG2ANTTLib.PatternEnum.exPatternSolid
	End With
	.Columns.Add("Column")
	With .Items
		h = .AddItem("Item 1")
		.AddBar(h,"Task",#1/2/2001#,#1/5/2001#,"A")
		.AddBar(h,"Task",#1/8/2001#,#1/15/2001#,"B")
	End With
	.EndUpdate()
End With

Dim h
With Exg2antt1
	.DrawGridLines = exontrol.EXG2ANTTLib.GridLinesEnum.exAllLines
	With .Chart
		.set_PaneWidth(False,48)
		.FirstVisibleDate = #1/1/2001#
		.DrawGridLines = exontrol.EXG2ANTTLib.GridLinesEnum.exAllLines
		.LevelCount = 2
		.get_Level(1).DrawGridLines = True
		.Bars.Item("Task").Pattern = exontrol.EXG2ANTTLib.PatternEnum.exPatternSolid
	End With
	.Columns.Add("Column")
	With .Items
		h = .AddItem("Item 1")
		.AddBar(h,"Task",#1/2/2001#,#1/5/2001#,"A")
		.AddBar(h,"Task",#1/8/2001#,#1/15/2001#,"B")
	End With
End With

With Exg2antt1
	With .Chart
		.set_PaneWidth(False,0)
		.FirstVisibleDate = #12/28/2009#
		.LevelCount = 2
		.get_Level(0).Label = "Week: <%ww%>/<%yyyy%>"
		.FirstWeekDay = exontrol.EXG2ANTTLib.WeekDayEnum.exMonday
	End With
End With

With Exg2antt1
	.Columns.Add("Task")
	With .Chart
		.FirstVisibleDate = #1/1/2001#
		.set_PaneWidth(False,48)
	End With
	With .Items
		.AddBar(.AddItem("Task 1"),"Task",#1/2/2001#,#1/6/2001#)
		.AddBar(.AddItem("Task 2"),"Task",#1/3/2001#,#1/7/2001#)
		.AddBar(.AddItem("Task 3"),"Task",#1/4/2001#,#1/8/2001#)
		.AddBar(.AddItem("Task 4"),"Task",#1/6/2001#,#1/10/2001#)
	End With
	Debug.Print( .Chart.StartPrintDate )
	Debug.Print( .Chart.EndPrintDate )
End With

Dim h
With Exg2antt1
	.BeginUpdate()
	.Items.AllowCellValueToItemBar = True
	With .Columns
		.Add("Task")
		With .Add("Percent")
			.Editor.EditType = exontrol.EXG2ANTTLib.EditTypeEnum.SpinType
			.set_Def(exontrol.EXG2ANTTLib.DefColumnEnum.exCellValueToItemBarProperty,518)
		End With
	End With
	With .Chart
		.FirstVisibleDate = #1/1/2001#
		.Bars.Add("Task%Progress")
	End With
	With .Items
		h = .AddItem("Task 1")
		.AddBar(h,"Task%Progress",#1/2/2001#,#1/6/2001#)
		.set_CellValue(h,1,40)
		h = .AddItem("Task 2")
		.AddBar(h,"Task%Progress",#1/2/2001#,#1/6/2001#)
		.set_CellValue(h,1,50)
	End With
	.EndUpdate()
End With

With Exg2antt1
	.BeginUpdate()
	With .Chart
		.LevelCount = 2
		.set_PaneWidth(False,64)
		.FirstVisibleDate = #1/1/2001#
		.HistogramVisible = True
		.HistogramView = exontrol.EXG2ANTTLib.HistogramViewEnum.exHistogramSelectedBars
		.HistogramHeight = 32
		.Bars.Item("Task").HistogramPattern = exontrol.EXG2ANTTLib.PatternEnum.exPatternBDiagonal
	End With
	.Columns.Add("Column")
	With .Items
		.AddBar(.AddItem("Item 1"),"Task",#1/3/2001#,#1/5/2001#,1)
		.AddBar(.AddItem("Item 2"),"Task",#1/4/2001#,#1/7/2001#,2)
		.AddBar(.AddItem("Item 3"),"Task",#1/2/2001#,#1/6/2001#,3)
		.set_ItemBar(0,2,exontrol.EXG2ANTTLib.ItemBarPropertyEnum.exBarSelected,True)
		.set_ItemBar(0,3,exontrol.EXG2ANTTLib.ItemBarPropertyEnum.exBarSelected,True)
	End With
	.EndUpdate()
End With

Dim h1
With Exg2antt1
	.BeginUpdate()
	.Columns.Add("Task")
	With .Chart
		.FirstVisibleDate = #1/1/2001#
		.set_PaneWidth(False,48)
	End With
	With .Items
		h1 = .AddItem("Task 1")
		.AddBar(h1,"Task",#1/2/2001#,#1/8/2001#,"K1","Unselectable")
		.set_ItemBar(h1,"K1",exontrol.EXG2ANTTLib.ItemBarPropertyEnum.exBarSelectable,False)
	End With
	.EndUpdate()
End With

Dim h1
With Exg2antt1
	.BeginUpdate()
	.Columns.Add("Task")
	With .Chart
		.FirstVisibleDate = #1/1/2001#
		.set_PaneWidth(False,48)
	End With
	With .Items
		h1 = .AddItem("Task 1")
		.AddBar(h1,"Task",#1/2/2001#,#1/4/2001#,"K1","Fixed")
		.set_ItemBar(h1,"K1",exontrol.EXG2ANTTLib.ItemBarPropertyEnum.exBarCanResize,False)
		.set_ItemBar(h1,"K1",exontrol.EXG2ANTTLib.ItemBarPropertyEnum.exBarCanMove,False)
	End With
	.EndUpdate()
End With

Dim h1,h2,h3
With Exg2antt1
	.BeginUpdate()
	.Columns.Add("Task")
	With .Chart
		.FirstVisibleDate = #1/1/2001#
		.set_PaneWidth(False,48)
	End With
	With .Items
		h1 = .AddItem("Task 1")
		.AddBar(h1,"TaskF",#1/2/2001#,#1/4/2001#,"K1")
		.set_ItemBar(h1,"K1",exontrol.EXG2ANTTLib.ItemBarPropertyEnum.exBarCanResize,False)
		.set_ItemBar(h1,"K1",exontrol.EXG2ANTTLib.ItemBarPropertyEnum.exBarCanMove,False)
		h2 = .AddItem("Task 2")
		.AddBar(h2,"Task",#1/2/2001#,#1/4/2001#,"K2")
		.AddLink("L1",h1,"K1",h2,"K2")
		h3 = .AddItem("Task 3")
		.AddBar(h3,"TaskF",#1/2/2001#,#1/4/2001#,"K3")
		.set_ItemBar(h3,"K3",exontrol.EXG2ANTTLib.ItemBarPropertyEnum.exBarCanResize,False)
		.set_ItemBar(h3,"K3",exontrol.EXG2ANTTLib.ItemBarPropertyEnum.exBarCanMove,False)
		.AddLink("L2",h2,"K2",h3,"K3")
		.SchedulePDM(0,"K1")
	End With
	.EndUpdate()
End With

Dim h1,h2,h3
With Exg2antt1
	.BeginUpdate()
	.Columns.Add("Task")
	With .Chart
		.Bars.Add("Task:Split").Shortcut = "Task"
		.FirstVisibleDate = #1/1/2001#
		.set_PaneWidth(False,48)
	End With
	With .Items
		h1 = .AddItem("Task 1")
		.AddBar(h1,"Task",#1/1/2001#,#1/3/2001#,"K1")
		.set_ItemBar(h1,"K1",exontrol.EXG2ANTTLib.ItemBarPropertyEnum.exBarKeepWorkingCount,True)
		h2 = .AddItem("Task 2")
		.AddBar(h2,"Task",#1/2/2001#,#1/5/2001#,"K2")
		.set_ItemBar(h2,"K2",exontrol.EXG2ANTTLib.ItemBarPropertyEnum.exBarKeepWorkingCount,True)
		.AddLink("L1",h1,"K1",h2,"K2")
		.set_Link("L1",exontrol.EXG2ANTTLib.LinkPropertyEnum.exLinkText,"FS")
		h3 = .AddItem("Task 3")
		.AddBar(h3,"Task",#1/2/2001#,#1/6/2001#,"K3")
		.set_ItemBar(h3,"K3",exontrol.EXG2ANTTLib.ItemBarPropertyEnum.exBarKeepWorkingCount,True)
		.AddLink("L2",h2,"K2",h3,"K3")
		.set_Link("L2",exontrol.EXG2ANTTLib.LinkPropertyEnum.exLinkText,"link delays the bars<br>for <b>2</b> working days")
		.set_Link("L2",exontrol.EXG2ANTTLib.LinkPropertyEnum.exLinkPDMWorkingDelay,2)
		.SchedulePDM(0,"K1")
	End With
	.EndUpdate()
End With

Dim h1,h2,h3
With Exg2antt1
	.BeginUpdate()
	.Columns.Add("Task")
	With .Chart
		.ShowNonworkingDates = False
		.FirstVisibleDate = #1/1/2001#
		.set_PaneWidth(False,48)
	End With
	With .Items
		h1 = .AddItem("Task 1")
		.AddBar(h1,"Task",#1/2/2001#,#1/4/2001#,"K1")
		h2 = .AddItem("Task 2")
		.AddBar(h2,"Task",#1/2/2001#,#1/5/2001#,"K2")
		.AddLink("L1",h1,"K1",h2,"K2")
		.set_Link("L1",exontrol.EXG2ANTTLib.LinkPropertyEnum.exLinkText,"FS")
		h3 = .AddItem("Task 3")
		.AddBar(h3,"Task",#1/2/2001#,#1/6/2001#,"K3")
		.AddLink("L2",h2,"K2",h3,"K3")
		.set_Link("L2",exontrol.EXG2ANTTLib.LinkPropertyEnum.exLinkText,"   Finish-Start<br>delayed <b>4</b> days")
		.set_Link("L2",exontrol.EXG2ANTTLib.LinkPropertyEnum.exLinkPDMDelay,4)
		.SchedulePDM(0,"K1")
	End With
	.EndUpdate()
End With

Dim h1,h2,h3
With Exg2antt1
	.BeginUpdate()
	.Columns.Add("Task")
	With .Chart
		.Bars.Add("Task:Split").Shortcut = "Task"
		.FirstVisibleDate = #1/1/2001#
		.set_PaneWidth(False,48)
	End With
	With .Items
		h1 = .AddItem("Task 1")
		.AddBar(h1,"Task",#1/2/2001#,#1/4/2001#,"K1")
		.set_ItemBar(h1,"K1",exontrol.EXG2ANTTLib.ItemBarPropertyEnum.exBarKeepWorkingCount,True)
		h2 = .AddItem("Task 2")
		.AddBar(h2,"Task",#1/2/2001#,#1/5/2001#,"K2")
		.set_ItemBar(h2,"K2",exontrol.EXG2ANTTLib.ItemBarPropertyEnum.exBarKeepWorkingCount,True)
		.AddLink("L1",h1,"K1",h2,"K2")
		.set_Link("L1",exontrol.EXG2ANTTLib.LinkPropertyEnum.exLinkText,"FS")
		h3 = .AddItem("Task 3")
		.AddBar(h3,"Task",#1/2/2001#,#1/6/2001#,"K3")
		.set_ItemBar(h3,"K3",exontrol.EXG2ANTTLib.ItemBarPropertyEnum.exBarKeepWorkingCount,True)
		.AddLink("L2",h2,"K2",h3,"K3")
		.set_Link("L2",exontrol.EXG2ANTTLib.LinkPropertyEnum.exLinkText,"FS")
		.SchedulePDM(0,"K1")
	End With
	.EndUpdate()
End With

Dim h1,h2,h3
With Exg2antt1
	.BeginUpdate()
	.Columns.Add("Task")
	With .Chart
		.FirstVisibleDate = #12/28/2000#
		.set_PaneWidth(False,48)
	End With
	With .Items
		h1 = .AddItem("Task 1")
		.AddBar(h1,"Task",#1/2/2001#,#1/4/2001#,"K1")
		h2 = .AddItem("Task 2")
		.AddBar(h2,"Task",#1/2/2001#,#1/5/2001#,"K2")
		.AddLink("L1",h1,"K1",h2,"K2")
		.set_Link("L1",exontrol.EXG2ANTTLib.LinkPropertyEnum.exLinkText,"FS")
		h3 = .AddItem("Task 3")
		.AddBar(h3,"Task",#1/2/2001#,#1/6/2001#,"K3")
		.AddLink("L2",h2,"K2",h3,"K3")
		.set_Link("L2",exontrol.EXG2ANTTLib.LinkPropertyEnum.exLinkText,"SF")
		.set_Link("L2",exontrol.EXG2ANTTLib.LinkPropertyEnum.exLinkStartPos,0)
		.set_Link("L2",exontrol.EXG2ANTTLib.LinkPropertyEnum.exLinkEndPos,2)
		.SchedulePDM(0,"K1")
	End With
	.EndUpdate()
End With

Dim h1,h2,h3
With Exg2antt1
	.BeginUpdate()
	.Columns.Add("Task")
	With .Chart
		.FirstVisibleDate = #12/28/2000#
		.set_PaneWidth(False,48)
	End With
	With .Items
		h1 = .AddItem("Task 1")
		.AddBar(h1,"Task",#1/2/2001#,#1/4/2001#,"K1")
		h2 = .AddItem("Task 2")
		.AddBar(h2,"Task",#1/2/2001#,#1/5/2001#,"K2")
		.AddLink("L1",h1,"K1",h2,"K2")
		.set_Link("L1",exontrol.EXG2ANTTLib.LinkPropertyEnum.exLinkText,"FS")
		h3 = .AddItem("Task 3")
		.AddBar(h3,"Task",#1/2/2001#,#1/6/2001#,"K3")
		.AddLink("L2",h2,"K2",h3,"K3")
		.set_Link("L2",exontrol.EXG2ANTTLib.LinkPropertyEnum.exLinkText,"SS")
		.set_Link("L2",exontrol.EXG2ANTTLib.LinkPropertyEnum.exLinkStartPos,0)
		.set_Link("L2",exontrol.EXG2ANTTLib.LinkPropertyEnum.exLinkEndPos,0)
		.SchedulePDM(0,"K1")
	End With
	.EndUpdate()
End With

Dim h1,h2,h3
With Exg2antt1
	.BeginUpdate()
	.Columns.Add("Task")
	With .Chart
		.FirstVisibleDate = #12/28/2000#
		.set_PaneWidth(False,48)
	End With
	With .Items
		h1 = .AddItem("Task 1")
		.AddBar(h1,"Task",#1/2/2001#,#1/4/2001#,"K1")
		h2 = .AddItem("Task 2")
		.AddBar(h2,"Task",#1/2/2001#,#1/5/2001#,"K2")
		.AddLink("L1",h1,"K1",h2,"K2")
		.set_Link("L1",exontrol.EXG2ANTTLib.LinkPropertyEnum.exLinkText,"FS")
		h3 = .AddItem("Task 3")
		.AddBar(h3,"Task",#1/2/2001#,#1/6/2001#,"K3")
		.AddLink("L2",h2,"K2",h3,"K3")
		.set_Link("L2",exontrol.EXG2ANTTLib.LinkPropertyEnum.exLinkText,"FF")
		.set_Link("L2",exontrol.EXG2ANTTLib.LinkPropertyEnum.exLinkStartPos,2)
		.set_Link("L2",exontrol.EXG2ANTTLib.LinkPropertyEnum.exLinkEndPos,2)
		.SchedulePDM(0,"K1")
	End With
	.EndUpdate()
End With

Dim h1,h2,h3
With Exg2antt1
	.BeginUpdate()
	.Columns.Add("Task")
	With .Chart
		.FirstVisibleDate = #1/1/2001#
		.set_PaneWidth(False,48)
	End With
	With .Items
		h1 = .AddItem("Task 1")
		.AddBar(h1,"Task",#1/2/2001#,#1/4/2001#,"K1")
		h2 = .AddItem("Task 2")
		.AddBar(h2,"Task",#1/2/2001#,#1/5/2001#,"K2")
		.AddLink("L1",h1,"K1",h2,"K2")
		.set_Link("L1",exontrol.EXG2ANTTLib.LinkPropertyEnum.exLinkText,"FS")
		h3 = .AddItem("Task 3")
		.AddBar(h3,"Task",#1/2/2001#,#1/6/2001#,"K3")
		.AddLink("L2",h2,"K2",h3,"K3")
		.set_Link("L2",exontrol.EXG2ANTTLib.LinkPropertyEnum.exLinkText,"FS")
		.SchedulePDM(0,"K1")
	End With
	.EndUpdate()
End With

Dim h1,h2,h3
With Exg2antt1
	.BeginUpdate()
	.Columns.Add("Task")
	With .Chart
		.FirstVisibleDate = #1/1/2001#
		.set_PaneWidth(False,48)
	End With
	With .Items
		h1 = .AddItem("Task 1")
		.AddBar(h1,"Task",#1/2/2001#,#1/4/2001#,"K1")
		h2 = .AddItem("Task 2")
		.AddBar(h2,"Task",#1/2/2001#,#1/4/2001#,"K2")
		.AddLink("L1",h1,"K1",h2,"K2")
		h3 = .AddItem("Task 3")
		.AddBar(h3,"Task",#1/2/2001#,#1/4/2001#,"K3")
		.AddLink("L2",h3,"K3",h2,"K2")
		.SchedulePDM(0,"K1")
	End With
	.EndUpdate()
End With

Dim h1,h2,h3
With Exg2antt1
	.BeginUpdate()
	.Columns.Add("Task")
	With .Chart
		.FirstVisibleDate = #1/1/2001#
		.set_PaneWidth(False,48)
	End With
	With .Items
		h1 = .AddItem("Task 1")
		.AddBar(h1,"Task",#1/2/2001#,#1/4/2001#,"K1")
		h2 = .AddItem("Task 2")
		.AddBar(h2,"Task",#1/2/2001#,#1/4/2001#,"K2")
		.AddLink("L1",h1,"K1",h2,"K2")
		h3 = .AddItem("Task 3")
		.AddBar(h3,"Task",#1/2/2001#,#1/4/2001#,"K3")
		.AddLink("L2",h2,"K2",h3,"K3")
		.SchedulePDM(0,"K1")
	End With
	.EndUpdate()
End With

With Exg2antt1
	.BeginUpdate()
	.FilterBarPromptVisible = True
	.FilterBarCaption = "This is a bit of text being displayed in the filter bar."
	.Columns.Add("")
	With .Items
		.AddItem("Item 1")
		.AddItem("Item 2")
		.AddItem("Item 3")
	End With
	.EndUpdate()
End With

Dim h
With Exg2antt1
	.BeginUpdate()
	.Columns.Add("")
	With .Items
		h = .AddItem("")
		.set_CellValue(h,0,.VisibleItemCount)
	End With
	.EndUpdate()
End With

Dim h0
With Exg2antt1
	.BeginUpdate()
	.Chart.set_PaneWidth(True,0)
	.ColumnAutoResize = True
	.ContinueColumnScroll = False
	.FocusColumnIndex = 1
	.MarkSearchColumn = False
	.SearchColumnIndex = 1
	.FilterBarPromptVisible = True
	.FilterBarPromptType = exontrol.EXG2ANTTLib.FilterPromptEnum.exFilterPromptWords Or exontrol.EXG2ANTTLib.FilterPromptEnum.exFilterPromptContainsAll
	.FilterBarPromptPattern = "london robert"
	.FilterBarCaption = "<r>Found: ... "
	With .Columns
		.Add("Name").Width = 96
		.Add("Title").Width = 96
		.Add("City")
	End With
	With .Items
		h0 = .AddItem("Nancy Davolio")
		.set_CellValue(h0,1,"Sales Representative")
		.set_CellValue(h0,2,"Seattle")
		h0 = .AddItem("Andrew Fuller")
		.set_CellValue(h0,1,"Vice President, Sales")
		.set_CellValue(h0,2,"Tacoma")
		.set_SelectItem(h0,True)
		h0 = .AddItem("Janet Leverling")
		.set_CellValue(h0,1,"Sales Representative")
		.set_CellValue(h0,2,"Kirkland")
		h0 = .AddItem("Margaret Peacock")
		.set_CellValue(h0,1,"Sales Representative")
		.set_CellValue(h0,2,"Redmond")
		h0 = .AddItem("Steven Buchanan")
		.set_CellValue(h0,1,"Sales Manager")
		.set_CellValue(h0,2,"London")
		h0 = .AddItem("Michael Suyama")
		.set_CellValue(h0,1,"Sales Representative")
		.set_CellValue(h0,2,"London")
		h0 = .AddItem("Robert King")
		.set_CellValue(h0,1,"Sales Representative")
		.set_CellValue(h0,2,"London")
		h0 = .AddItem("Laura Callahan")
		.set_CellValue(h0,1,"Inside Sales Coordinator")
		.set_CellValue(h0,2,"Seattle")
		h0 = .AddItem("Anne Dodsworth")
		.set_CellValue(h0,1,"Sales Representative")
		.set_CellValue(h0,2,"London")
	End With
	.EndUpdate()
End With

Dim h0
With Exg2antt1
	.BeginUpdate()
	.Chart.set_PaneWidth(True,0)
	.ColumnAutoResize = True
	.ContinueColumnScroll = False
	.FocusColumnIndex = 1
	.MarkSearchColumn = False
	.SearchColumnIndex = 1
	.FilterBarPromptVisible = True
	.FilterBarPromptType = exontrol.EXG2ANTTLib.FilterPromptEnum.exFilterPromptPattern
	.FilterBarPromptPattern = "lon* seat*"
	With .Columns
		.Add("Name").Width = 96
		.Add("Title").Width = 96
		.Add("City")
	End With
	With .Items
		h0 = .AddItem("Nancy Davolio")
		.set_CellValue(h0,1,"Sales Representative")
		.set_CellValue(h0,2,"Seattle")
		h0 = .AddItem("Andrew Fuller")
		.set_CellValue(h0,1,"Vice President, Sales")
		.set_CellValue(h0,2,"Tacoma")
		.set_SelectItem(h0,True)
		h0 = .AddItem("Janet Leverling")
		.set_CellValue(h0,1,"Sales Representative")
		.set_CellValue(h0,2,"Kirkland")
		h0 = .AddItem("Margaret Peacock")
		.set_CellValue(h0,1,"Sales Representative")
		.set_CellValue(h0,2,"Redmond")
		h0 = .AddItem("Steven Buchanan")
		.set_CellValue(h0,1,"Sales Manager")
		.set_CellValue(h0,2,"London")
		h0 = .AddItem("Michael Suyama")
		.set_CellValue(h0,1,"Sales Representative")
		.set_CellValue(h0,2,"London")
		h0 = .AddItem("Robert King")
		.set_CellValue(h0,1,"Sales Representative")
		.set_CellValue(h0,2,"London")
		h0 = .AddItem("Laura Callahan")
		.set_CellValue(h0,1,"Inside Sales Coordinator")
		.set_CellValue(h0,2,"Seattle")
		h0 = .AddItem("Anne Dodsworth")
		.set_CellValue(h0,1,"Sales Representative")
		.set_CellValue(h0,2,"London")
	End With
	.EndUpdate()
End With

Dim h0
With Exg2antt1
	.BeginUpdate()
	.Chart.set_PaneWidth(True,0)
	.ColumnAutoResize = True
	.ContinueColumnScroll = False
	.FocusColumnIndex = 1
	.MarkSearchColumn = False
	.SearchColumnIndex = 1
	.FilterBarPromptVisible = True
	.FilterBarPromptType = exontrol.EXG2ANTTLib.FilterPromptEnum.exFilterPromptStartWords Or exontrol.EXG2ANTTLib.FilterPromptEnum.exFilterPromptContainsAny
	.FilterBarPromptPattern = "london davolio"
	With .Columns
		.Add("Name").Width = 96
		.Add("Title").Width = 96
		.Add("City")
	End With
	With .Items
		h0 = .AddItem("Nancy Davolio")
		.set_CellValue(h0,1,"Sales Representative")
		.set_CellValue(h0,2,"Seattle")
		h0 = .AddItem("Andrew Fuller")
		.set_CellValue(h0,1,"Vice President, Sales")
		.set_CellValue(h0,2,"Tacoma")
		.set_SelectItem(h0,True)
		h0 = .AddItem("Janet Leverling")
		.set_CellValue(h0,1,"Sales Representative")
		.set_CellValue(h0,2,"Kirkland")
		h0 = .AddItem("Margaret Peacock")
		.set_CellValue(h0,1,"Sales Representative")
		.set_CellValue(h0,2,"Redmond")
		h0 = .AddItem("Steven Buchanan")
		.set_CellValue(h0,1,"Sales Manager")
		.set_CellValue(h0,2,"London")
		h0 = .AddItem("Michael Suyama")
		.set_CellValue(h0,1,"Sales Representative")
		.set_CellValue(h0,2,"London")
		h0 = .AddItem("Robert King")
		.set_CellValue(h0,1,"Sales Representative")
		.set_CellValue(h0,2,"London")
		h0 = .AddItem("Laura Callahan")
		.set_CellValue(h0,1,"Inside Sales Coordinator")
		.set_CellValue(h0,2,"Seattle")
		h0 = .AddItem("Anne Dodsworth")
		.set_CellValue(h0,1,"Sales Representative")
		.set_CellValue(h0,2,"London")
	End With
	.EndUpdate()
End With

Dim h0
With Exg2antt1
	.BeginUpdate()
	.ColumnAutoResize = True
	.ContinueColumnScroll = False
	.FocusColumnIndex = 1
	.Chart.set_PaneWidth(True,0)
	.MarkSearchColumn = False
	.SearchColumnIndex = 1
	.FilterBarPromptVisible = True
	.FilterBarPromptType = exontrol.EXG2ANTTLib.FilterPromptEnum.exFilterPromptWords Or exontrol.EXG2ANTTLib.FilterPromptEnum.exFilterPromptContainsAny
	.FilterBarPromptPattern = "london nancy"
	With .Columns
		.Add("Name").Width = 96
		.Add("Title").Width = 96
		.Add("City")
	End With
	With .Items
		h0 = .AddItem("Nancy Davolio")
		.set_CellValue(h0,1,"Sales Representative")
		.set_CellValue(h0,2,"Seattle")
		h0 = .AddItem("Andrew Fuller")
		.set_CellValue(h0,1,"Vice President, Sales")
		.set_CellValue(h0,2,"Tacoma")
		.set_SelectItem(h0,True)
		h0 = .AddItem("Janet Leverling")
		.set_CellValue(h0,1,"Sales Representative")
		.set_CellValue(h0,2,"Kirkland")
		h0 = .AddItem("Margaret Peacock")
		.set_CellValue(h0,1,"Sales Representative")
		.set_CellValue(h0,2,"Redmond")
		h0 = .AddItem("Steven Buchanan")
		.set_CellValue(h0,1,"Sales Manager")
		.set_CellValue(h0,2,"London")
		h0 = .AddItem("Michael Suyama")
		.set_CellValue(h0,1,"Sales Representative")
		.set_CellValue(h0,2,"London")
		h0 = .AddItem("Robert King")
		.set_CellValue(h0,1,"Sales Representative")
		.set_CellValue(h0,2,"London")
		h0 = .AddItem("Laura Callahan")
		.set_CellValue(h0,1,"Inside Sales Coordinator")
		.set_CellValue(h0,2,"Seattle")
		h0 = .AddItem("Anne Dodsworth")
		.set_CellValue(h0,1,"Sales Representative")
		.set_CellValue(h0,2,"London")
	End With
	.EndUpdate()
End With

Dim h0
With Exg2antt1
	.BeginUpdate()
	.Chart.set_PaneWidth(True,0)
	.ColumnAutoResize = True
	.ContinueColumnScroll = False
	.FocusColumnIndex = 1
	.MarkSearchColumn = False
	.SearchColumnIndex = 1
	.FilterBarPromptVisible = True
	.FilterBarPromptType = exontrol.EXG2ANTTLib.FilterPromptEnum.exFilterPromptWords Or exontrol.EXG2ANTTLib.FilterPromptEnum.exFilterPromptContainsAll
	.FilterBarPromptPattern = "london robert"
	With .Columns
		.Add("Name").Width = 96
		.Add("Title").Width = 96
		.Add("City")
	End With
	With .Items
		h0 = .AddItem("Nancy Davolio")
		.set_CellValue(h0,1,"Sales Representative")
		.set_CellValue(h0,2,"Seattle")
		h0 = .AddItem("Andrew Fuller")
		.set_CellValue(h0,1,"Vice President, Sales")
		.set_CellValue(h0,2,"Tacoma")
		.set_SelectItem(h0,True)
		h0 = .AddItem("Janet Leverling")
		.set_CellValue(h0,1,"Sales Representative")
		.set_CellValue(h0,2,"Kirkland")
		h0 = .AddItem("Margaret Peacock")
		.set_CellValue(h0,1,"Sales Representative")
		.set_CellValue(h0,2,"Redmond")
		h0 = .AddItem("Steven Buchanan")
		.set_CellValue(h0,1,"Sales Manager")
		.set_CellValue(h0,2,"London")
		h0 = .AddItem("Michael Suyama")
		.set_CellValue(h0,1,"Sales Representative")
		.set_CellValue(h0,2,"London")
		h0 = .AddItem("Robert King")
		.set_CellValue(h0,1,"Sales Representative")
		.set_CellValue(h0,2,"London")
		h0 = .AddItem("Laura Callahan")
		.set_CellValue(h0,1,"Inside Sales Coordinator")
		.set_CellValue(h0,2,"Seattle")
		h0 = .AddItem("Anne Dodsworth")
		.set_CellValue(h0,1,"Sales Representative")
		.set_CellValue(h0,2,"London")
	End With
	.EndUpdate()
End With

Dim h0
With Exg2antt1
	.BeginUpdate()
	.ColumnAutoResize = True
	.ContinueColumnScroll = False
	.FocusColumnIndex = 1
	.MarkSearchColumn = False
	.SearchColumnIndex = 1
	.FilterBarPromptVisible = True
	.FilterBarPromptType = exontrol.EXG2ANTTLib.FilterPromptEnum.exFilterPromptCaseSensitive Or exontrol.EXG2ANTTLib.FilterPromptEnum.exFilterPromptContainsAny
	.FilterBarPromptPattern = "Anne"
	.Chart.set_PaneWidth(True,0)
	With .Columns
		.Add("Name").Width = 96
		.Add("Title").Width = 96
		.Add("City")
	End With
	With .Items
		h0 = .AddItem("Nancy Davolio")
		.set_CellValue(h0,1,"Sales Representative")
		.set_CellValue(h0,2,"Seattle")
		h0 = .AddItem("Andrew Fuller")
		.set_CellValue(h0,1,"Vice President, Sales")
		.set_CellValue(h0,2,"Tacoma")
		.set_SelectItem(h0,True)
		h0 = .AddItem("Janet Leverling")
		.set_CellValue(h0,1,"Sales Representative")
		.set_CellValue(h0,2,"Kirkland")
		h0 = .AddItem("Margaret Peacock")
		.set_CellValue(h0,1,"Sales Representative")
		.set_CellValue(h0,2,"Redmond")
		h0 = .AddItem("Steven Buchanan")
		.set_CellValue(h0,1,"Sales Manager")
		.set_CellValue(h0,2,"London")
		h0 = .AddItem("Michael Suyama")
		.set_CellValue(h0,1,"Sales Representative")
		.set_CellValue(h0,2,"London")
		h0 = .AddItem("Robert King")
		.set_CellValue(h0,1,"Sales Representative")
		.set_CellValue(h0,2,"London")
		h0 = .AddItem("Laura Callahan")
		.set_CellValue(h0,1,"Inside Sales Coordinator")
		.set_CellValue(h0,2,"Seattle")
		h0 = .AddItem("Anne Dodsworth")
		.set_CellValue(h0,1,"Sales Representative")
		.set_CellValue(h0,2,"London")
	End With
	.EndUpdate()
End With

Dim h0
With Exg2antt1
	.BeginUpdate()
	.ColumnAutoResize = True
	.ContinueColumnScroll = False
	.FocusColumnIndex = 1
	.MarkSearchColumn = False
	.SearchColumnIndex = 1
	.FilterBarPromptVisible = True
	.FilterBarPromptType = exontrol.EXG2ANTTLib.FilterPromptEnum.exFilterPromptEndWith
	.FilterBarPromptColumns = "0"
	.FilterBarPromptPattern = "Fuller"
	.Chart.set_PaneWidth(True,0)
	With .Columns
		.Add("Name").Width = 96
		.Add("Title").Width = 96
		.Add("City")
	End With
	With .Items
		h0 = .AddItem("Nancy Davolio")
		.set_CellValue(h0,1,"Sales Representative")
		.set_CellValue(h0,2,"Seattle")
		h0 = .AddItem("Andrew Fuller")
		.set_CellValue(h0,1,"Vice President, Sales")
		.set_CellValue(h0,2,"Tacoma")
		.set_SelectItem(h0,True)
		h0 = .AddItem("Janet Leverling")
		.set_CellValue(h0,1,"Sales Representative")
		.set_CellValue(h0,2,"Kirkland")
		h0 = .AddItem("Margaret Peacock")
		.set_CellValue(h0,1,"Sales Representative")
		.set_CellValue(h0,2,"Redmond")
		h0 = .AddItem("Steven Buchanan")
		.set_CellValue(h0,1,"Sales Manager")
		.set_CellValue(h0,2,"London")
		h0 = .AddItem("Michael Suyama")
		.set_CellValue(h0,1,"Sales Representative")
		.set_CellValue(h0,2,"London")
		h0 = .AddItem("Robert King")
		.set_CellValue(h0,1,"Sales Representative")
		.set_CellValue(h0,2,"London")
		h0 = .AddItem("Laura Callahan")
		.set_CellValue(h0,1,"Inside Sales Coordinator")
		.set_CellValue(h0,2,"Seattle")
		h0 = .AddItem("Anne Dodsworth")
		.set_CellValue(h0,1,"Sales Representative")
		.set_CellValue(h0,2,"London")
	End With
	.EndUpdate()
End With

Dim h0
With Exg2antt1
	.BeginUpdate()
	.ColumnAutoResize = True
	.ContinueColumnScroll = False
	.FocusColumnIndex = 1
	.MarkSearchColumn = False
	.SearchColumnIndex = 1
	.FilterBarPromptVisible = True
	.FilterBarPromptType = exontrol.EXG2ANTTLib.FilterPromptEnum.exFilterPromptEndWith
	.FilterBarPromptColumns = "0"
	.FilterBarPromptPattern = "Fuller"
	.Chart.set_PaneWidth(True,0)
	With .Columns
		.Add("Name").Width = 96
		.Add("Title").Width = 96
		.Add("City")
	End With
	With .Items
		h0 = .AddItem("Nancy Davolio")
		.set_CellValue(h0,1,"Sales Representative")
		.set_CellValue(h0,2,"Seattle")
		h0 = .AddItem("Andrew Fuller")
		.set_CellValue(h0,1,"Vice President, Sales")
		.set_CellValue(h0,2,"Tacoma")
		.set_SelectItem(h0,True)
		h0 = .AddItem("Janet Leverling")
		.set_CellValue(h0,1,"Sales Representative")
		.set_CellValue(h0,2,"Kirkland")
		h0 = .AddItem("Margaret Peacock")
		.set_CellValue(h0,1,"Sales Representative")
		.set_CellValue(h0,2,"Redmond")
		h0 = .AddItem("Steven Buchanan")
		.set_CellValue(h0,1,"Sales Manager")
		.set_CellValue(h0,2,"London")
		h0 = .AddItem("Michael Suyama")
		.set_CellValue(h0,1,"Sales Representative")
		.set_CellValue(h0,2,"London")
		h0 = .AddItem("Robert King")
		.set_CellValue(h0,1,"Sales Representative")
		.set_CellValue(h0,2,"London")
		h0 = .AddItem("Laura Callahan")
		.set_CellValue(h0,1,"Inside Sales Coordinator")
		.set_CellValue(h0,2,"Seattle")
		h0 = .AddItem("Anne Dodsworth")
		.set_CellValue(h0,1,"Sales Representative")
		.set_CellValue(h0,2,"London")
	End With
	.EndUpdate()
End With

Dim h0
With Exg2antt1
	.BeginUpdate()
	.ColumnAutoResize = True
	.ContinueColumnScroll = False
	.FocusColumnIndex = 1
	.MarkSearchColumn = False
	.SearchColumnIndex = 1
	.FilterBarPromptVisible = True
	.FilterBarPromptType = exontrol.EXG2ANTTLib.FilterPromptEnum.exFilterPromptStartWith
	.FilterBarPromptColumns = "0"
	.FilterBarPromptPattern = "An M"
	.Chart.set_PaneWidth(True,0)
	With .Columns
		.Add("Name").Width = 96
		.Add("Title").Width = 96
		.Add("City")
	End With
	With .Items
		h0 = .AddItem("Nancy Davolio")
		.set_CellValue(h0,1,"Sales Representative")
		.set_CellValue(h0,2,"Seattle")
		h0 = .AddItem("Andrew Fuller")
		.set_CellValue(h0,1,"Vice President, Sales")
		.set_CellValue(h0,2,"Tacoma")
		.set_SelectItem(h0,True)
		h0 = .AddItem("Janet Leverling")
		.set_CellValue(h0,1,"Sales Representative")
		.set_CellValue(h0,2,"Kirkland")
		h0 = .AddItem("Margaret Peacock")
		.set_CellValue(h0,1,"Sales Representative")
		.set_CellValue(h0,2,"Redmond")
		h0 = .AddItem("Steven Buchanan")
		.set_CellValue(h0,1,"Sales Manager")
		.set_CellValue(h0,2,"London")
		h0 = .AddItem("Michael Suyama")
		.set_CellValue(h0,1,"Sales Representative")
		.set_CellValue(h0,2,"London")
		h0 = .AddItem("Robert King")
		.set_CellValue(h0,1,"Sales Representative")
		.set_CellValue(h0,2,"London")
		h0 = .AddItem("Laura Callahan")
		.set_CellValue(h0,1,"Inside Sales Coordinator")
		.set_CellValue(h0,2,"Seattle")
		h0 = .AddItem("Anne Dodsworth")
		.set_CellValue(h0,1,"Sales Representative")
		.set_CellValue(h0,2,"London")
	End With
	.EndUpdate()
End With

Dim h0
With Exg2antt1
	.BeginUpdate()
	.ColumnAutoResize = True
	.ContinueColumnScroll = False
	.FocusColumnIndex = 1
	.MarkSearchColumn = False
	.SearchColumnIndex = 1
	.FilterBarPromptVisible = True
	.FilterBarPromptType = exontrol.EXG2ANTTLib.FilterPromptEnum.exFilterPromptStartWith
	.FilterBarPromptColumns = "0"
	.FilterBarPromptPattern = "A"
	.Chart.set_PaneWidth(True,0)
	With .Columns
		.Add("Name").Width = 96
		.Add("Title").Width = 96
		.Add("City")
	End With
	With .Items
		h0 = .AddItem("Nancy Davolio")
		.set_CellValue(h0,1,"Sales Representative")
		.set_CellValue(h0,2,"Seattle")
		h0 = .AddItem("Andrew Fuller")
		.set_CellValue(h0,1,"Vice President, Sales")
		.set_CellValue(h0,2,"Tacoma")
		.set_SelectItem(h0,True)
		h0 = .AddItem("Janet Leverling")
		.set_CellValue(h0,1,"Sales Representative")
		.set_CellValue(h0,2,"Kirkland")
		h0 = .AddItem("Margaret Peacock")
		.set_CellValue(h0,1,"Sales Representative")
		.set_CellValue(h0,2,"Redmond")
		h0 = .AddItem("Steven Buchanan")
		.set_CellValue(h0,1,"Sales Manager")
		.set_CellValue(h0,2,"London")
		h0 = .AddItem("Michael Suyama")
		.set_CellValue(h0,1,"Sales Representative")
		.set_CellValue(h0,2,"London")
		h0 = .AddItem("Robert King")
		.set_CellValue(h0,1,"Sales Representative")
		.set_CellValue(h0,2,"London")
		h0 = .AddItem("Laura Callahan")
		.set_CellValue(h0,1,"Inside Sales Coordinator")
		.set_CellValue(h0,2,"Seattle")
		h0 = .AddItem("Anne Dodsworth")
		.set_CellValue(h0,1,"Sales Representative")
		.set_CellValue(h0,2,"London")
	End With
	.EndUpdate()
End With

Dim h0
With Exg2antt1
	.BeginUpdate()
	.ColumnAutoResize = True
	.ContinueColumnScroll = False
	.FocusColumnIndex = 1
	.MarkSearchColumn = False
	.SearchColumnIndex = 1
	.FilterBarPromptVisible = True
	.FilterBarPromptType = exontrol.EXG2ANTTLib.FilterPromptEnum.exFilterPromptContainsAny
	.FilterBarPromptPattern = "london seattle"
	.Chart.set_PaneWidth(True,0)
	With .Columns
		.Add("Name").Width = 96
		.Add("Title").Width = 96
		.Add("City")
	End With
	With .Items
		h0 = .AddItem("Nancy Davolio")
		.set_CellValue(h0,1,"Sales Representative")
		.set_CellValue(h0,2,"Seattle")
		h0 = .AddItem("Andrew Fuller")
		.set_CellValue(h0,1,"Vice President, Sales")
		.set_CellValue(h0,2,"Tacoma")
		.set_SelectItem(h0,True)
		h0 = .AddItem("Janet Leverling")
		.set_CellValue(h0,1,"Sales Representative")
		.set_CellValue(h0,2,"Kirkland")
		h0 = .AddItem("Margaret Peacock")
		.set_CellValue(h0,1,"Sales Representative")
		.set_CellValue(h0,2,"Redmond")
		h0 = .AddItem("Steven Buchanan")
		.set_CellValue(h0,1,"Sales Manager")
		.set_CellValue(h0,2,"London")
		h0 = .AddItem("Michael Suyama")
		.set_CellValue(h0,1,"Sales Representative")
		.set_CellValue(h0,2,"London")
		h0 = .AddItem("Robert King")
		.set_CellValue(h0,1,"Sales Representative")
		.set_CellValue(h0,2,"London")
		h0 = .AddItem("Laura Callahan")
		.set_CellValue(h0,1,"Inside Sales Coordinator")
		.set_CellValue(h0,2,"Seattle")
		h0 = .AddItem("Anne Dodsworth")
		.set_CellValue(h0,1,"Sales Representative")
		.set_CellValue(h0,2,"London")
	End With
	.EndUpdate()
End With

Dim h0
With Exg2antt1
	.BeginUpdate()
	.Chart.set_PaneWidth(True,0)
	.ColumnAutoResize = True
	.ContinueColumnScroll = False
	.FocusColumnIndex = 1
	.MarkSearchColumn = False
	.SearchColumnIndex = 1
	.FilterBarPromptVisible = True
	.FilterBarPromptType = exontrol.EXG2ANTTLib.FilterPromptEnum.exFilterPromptContainsAll
	.FilterBarPromptPattern = "london manager"
	With .Columns
		.Add("Name").Width = 96
		.Add("Title").Width = 96
		.Add("City")
	End With
	With .Items
		h0 = .AddItem("Nancy Davolio")
		.set_CellValue(h0,1,"Sales Representative")
		.set_CellValue(h0,2,"Seattle")
		h0 = .AddItem("Andrew Fuller")
		.set_CellValue(h0,1,"Vice President, Sales")
		.set_CellValue(h0,2,"Tacoma")
		.set_SelectItem(h0,True)
		h0 = .AddItem("Janet Leverling")
		.set_CellValue(h0,1,"Sales Representative")
		.set_CellValue(h0,2,"Kirkland")
		h0 = .AddItem("Margaret Peacock")
		.set_CellValue(h0,1,"Sales Representative")
		.set_CellValue(h0,2,"Redmond")
		h0 = .AddItem("Steven Buchanan")
		.set_CellValue(h0,1,"Sales Manager")
		.set_CellValue(h0,2,"London")
		h0 = .AddItem("Michael Suyama")
		.set_CellValue(h0,1,"Sales Representative")
		.set_CellValue(h0,2,"London")
		h0 = .AddItem("Robert King")
		.set_CellValue(h0,1,"Sales Representative")
		.set_CellValue(h0,2,"London")
		h0 = .AddItem("Laura Callahan")
		.set_CellValue(h0,1,"Inside Sales Coordinator")
		.set_CellValue(h0,2,"Seattle")
		h0 = .AddItem("Anne Dodsworth")
		.set_CellValue(h0,1,"Sales Representative")
		.set_CellValue(h0,2,"London")
	End With
	.EndUpdate()
End With

Dim h0
With Exg2antt1
	.BeginUpdate()
	.ColumnAutoResize = True
	.ContinueColumnScroll = False
	.FocusColumnIndex = 1
	.Chart.set_PaneWidth(True,0)
	.MarkSearchColumn = False
	.SearchColumnIndex = 1
	.FilterBarPromptVisible = True
	.FilterBarPromptPattern = "london manager"
	With .Columns
		.Add("Name").Width = 96
		.Add("Title").Width = 96
		.Add("City")
	End With
	With .Items
		h0 = .AddItem("Nancy Davolio")
		.set_CellValue(h0,1,"Sales Representative")
		.set_CellValue(h0,2,"Seattle")
		h0 = .AddItem("Andrew Fuller")
		.set_CellValue(h0,1,"Vice President, Sales")
		.set_CellValue(h0,2,"Tacoma")
		.set_SelectItem(h0,True)
		h0 = .AddItem("Janet Leverling")
		.set_CellValue(h0,1,"Sales Representative")
		.set_CellValue(h0,2,"Kirkland")
		h0 = .AddItem("Margaret Peacock")
		.set_CellValue(h0,1,"Sales Representative")
		.set_CellValue(h0,2,"Redmond")
		h0 = .AddItem("Steven Buchanan")
		.set_CellValue(h0,1,"Sales Manager")
		.set_CellValue(h0,2,"London")
		h0 = .AddItem("Michael Suyama")
		.set_CellValue(h0,1,"Sales Representative")
		.set_CellValue(h0,2,"London")
		h0 = .AddItem("Robert King")
		.set_CellValue(h0,1,"Sales Representative")
		.set_CellValue(h0,2,"London")
		h0 = .AddItem("Laura Callahan")
		.set_CellValue(h0,1,"Inside Sales Coordinator")
		.set_CellValue(h0,2,"Seattle")
		h0 = .AddItem("Anne Dodsworth")
		.set_CellValue(h0,1,"Sales Representative")
		.set_CellValue(h0,2,"London")
	End With
	.EndUpdate()
End With

Dim h0
With Exg2antt1
	.BeginUpdate()
	.ColumnAutoResize = True
	.ContinueColumnScroll = False
	.FocusColumnIndex = 1
	.Chart.set_PaneWidth(True,0)
	.MarkSearchColumn = False
	.SearchColumnIndex = 1
	.FilterBarPromptVisible = True
	.FilterBarPromptColumns = "2,3"
	.FilterBarPromptPattern = "london"
	With .Columns
		.Add("Name").Width = 96
		.Add("Title").Width = 96
		.Add("City")
	End With
	With .Items
		h0 = .AddItem("Nancy Davolio")
		.set_CellValue(h0,1,"Sales Representative")
		.set_CellValue(h0,2,"Seattle")
		h0 = .AddItem("Andrew Fuller")
		.set_CellValue(h0,1,"Vice President, Sales")
		.set_CellValue(h0,2,"Tacoma")
		.set_SelectItem(h0,True)
		h0 = .AddItem("Janet Leverling")
		.set_CellValue(h0,1,"Sales Representative")
		.set_CellValue(h0,2,"Kirkland")
		h0 = .AddItem("Margaret Peacock")
		.set_CellValue(h0,1,"Sales Representative")
		.set_CellValue(h0,2,"Redmond")
		h0 = .AddItem("Steven Buchanan")
		.set_CellValue(h0,1,"Sales Manager")
		.set_CellValue(h0,2,"London")
		h0 = .AddItem("Michael Suyama")
		.set_CellValue(h0,1,"Sales Representative")
		.set_CellValue(h0,2,"London")
		h0 = .AddItem("Robert King")
		.set_CellValue(h0,1,"Sales Representative")
		.set_CellValue(h0,2,"London")
		h0 = .AddItem("Laura Callahan")
		.set_CellValue(h0,1,"Inside Sales Coordinator")
		.set_CellValue(h0,2,"Seattle")
		h0 = .AddItem("Anne Dodsworth")
		.set_CellValue(h0,1,"Sales Representative")
		.set_CellValue(h0,2,"London")
	End With
	.EndUpdate()
End With

With Exg2antt1
	.BeginUpdate()
	.Chart.set_PaneWidth(True,0)
	.ColumnAutoResize = True
	.ContinueColumnScroll = False
	.FocusColumnIndex = 1
	.MarkSearchColumn = False
	.SearchColumnIndex = 1
	.FilterBarPromptVisible = True
	.FilterBarPrompt = "changed"
	With .Columns
		.Add("Name").Width = 96
		.Add("Title").Width = 96
		.Add("City")
	End With
	.EndUpdate()
End With

Dim h0
With Exg2antt1
	.BeginUpdate()
	.Chart.set_PaneWidth(True,0)
	.ColumnAutoResize = True
	.ContinueColumnScroll = False
	.FocusColumnIndex = 1
	.MarkSearchColumn = False
	.SearchColumnIndex = 1
	.FilterBarPromptVisible = True
	With .Columns
		.Add("Name").Width = 96
		.Add("Title").Width = 96
		.Add("City")
	End With
	With .Items
		h0 = .AddItem("Nancy Davolio")
		.set_CellValue(h0,1,"Sales Representative")
		.set_CellValue(h0,2,"Seattle")
		h0 = .AddItem("Andrew Fuller")
		.set_CellValue(h0,1,"Vice President, Sales")
		.set_CellValue(h0,2,"Tacoma")
		.set_SelectItem(h0,True)
		h0 = .AddItem("Janet Leverling")
		.set_CellValue(h0,1,"Sales Representative")
		.set_CellValue(h0,2,"Kirkland")
		h0 = .AddItem("Margaret Peacock")
		.set_CellValue(h0,1,"Sales Representative")
		.set_CellValue(h0,2,"Redmond")
		h0 = .AddItem("Steven Buchanan")
		.set_CellValue(h0,1,"Sales Manager")
		.set_CellValue(h0,2,"London")
		h0 = .AddItem("Michael Suyama")
		.set_CellValue(h0,1,"Sales Representative")
		.set_CellValue(h0,2,"London")
		h0 = .AddItem("Robert King")
		.set_CellValue(h0,1,"Sales Representative")
		.set_CellValue(h0,2,"London")
		h0 = .AddItem("Laura Callahan")
		.set_CellValue(h0,1,"Inside Sales Coordinator")
		.set_CellValue(h0,2,"Seattle")
		h0 = .AddItem("Anne Dodsworth")
		.set_CellValue(h0,1,"Sales Representative")
		.set_CellValue(h0,2,"London")
	End With
	.EndUpdate()
End With

With Exg2antt1
	.Columns.Add("Task")
	.Chart.FirstVisibleDate = #1/1/2001#
	With .Items
		.AddBar(.AddItem("Task 1"),"Task",#1/2/2001#,#1/4/2001#,"K1")
		.AddBar(.AddItem("Task 2"),"Task",#1/2/2001#,#1/4/2001#,"K2")
		.AddBar(.AddItem("Task 3"),"Task",#1/2/2001#,#1/4/2001#,"K3")
		.AddBar(.AddItem("Task 4"),"Task",#1/2/2001#,#1/4/2001#,"K4")
		.set_ItemBar(0,"<*>",exontrol.EXG2ANTTLib.ItemBarPropertyEnum.exBarSelected,True)
		.set_ItemBar(0,"<*>",exontrol.EXG2ANTTLib.ItemBarPropertyEnum.exBarSelected,False)
	End With
End With

Dim h
With Exg2antt1
	.Columns.Add("Task")
	With .Chart
		.FirstVisibleDate = #1/1/2001#
		.set_PaneWidth(False,48)
		.ShowNonworkingDates = False
	End With
	With .Items
		h = .AddItem("Task 1")
		.AddBar(h,"Task",#1/2/2001#,#1/4/2001#,"K1K","K1K")
		.AddBar(h,"Task",#1/5/2001#,#1/7/2001#,"K2M","K2M")
		.AddBar(h,"Task",#1/9/2001#,#1/11/2001#,"K3K","K3K")
		.AddBar(.AddItem("Task 2"),"Task",#1/2/2001#,#1/4/2001#,"Q","Q")
		.AddBar(.AddItem("Task 4"),"Task",#1/2/2001#,#1/4/2001#,"M","M")
		.set_ItemBar(0,"<K*K>",exontrol.EXG2ANTTLib.ItemBarPropertyEnum.exBarSelected,True)
	End With
End With

Dim h
With Exg2antt1
	.Columns.Add("Task")
	.Chart.FirstVisibleDate = #1/1/2001#
	.Chart.set_PaneWidth(False,48)
	With .Items
		h = .AddItem("Task 1")
		.AddBar(h,"Task",#1/2/2001#,#1/4/2001#,"K1","K1")
		.AddBar(h,"Task",#1/5/2001#,#1/7/2001#,"K2","K2")
		.AddBar(h,"Task",#1/9/2001#,#1/11/2001#,"P","P")
		.AddBar(.AddItem("Task 2"),"Task",#1/2/2001#,#1/4/2001#,"Q","Q")
		.AddBar(.AddItem("Task 4"),"Task",#1/2/2001#,#1/4/2001#,"M","M")
		.set_ItemBar(h,"<K*>",exontrol.EXG2ANTTLib.ItemBarPropertyEnum.exBarSelected,True)
	End With
End With

Dim h
With Exg2antt1
	.Columns.Add("Task")
	.Chart.FirstVisibleDate = #1/1/2001#
	.Chart.set_PaneWidth(False,48)
	With .Items
		h = .AddItem("Task 1")
		.AddBar(h,"Task",#1/2/2001#,#1/4/2001#,"K1","K1")
		.AddBar(h,"Task",#1/5/2001#,#1/7/2001#,"K2","K2")
		.AddBar(h,"Task",#1/9/2001#,#1/11/2001#,"P","P")
		.AddBar(.AddItem("Task 2"),"Task",#1/2/2001#,#1/4/2001#,"Q","Q")
		.AddBar(.AddItem("Task 4"),"Task",#1/2/2001#,#1/4/2001#,"M","M")
		.set_ItemBar(h,"<*>",exontrol.EXG2ANTTLib.ItemBarPropertyEnum.exBarSelected,True)
	End With
End With

Dim h
With Exg2antt1
	.Columns.Add("Task")
	.Chart.FirstVisibleDate = #1/1/2001#
	.Chart.set_PaneWidth(False,48)
	With .Items
		h = .AddItem("Task 1")
		.AddBar(h,"Task",#1/2/2001#,#1/4/2001#,"K1","K1")
		.AddBar(h,"Task",#1/5/2001#,#1/7/2001#,"K2","K2")
		.AddBar(h,"Task",#1/8/2001#,#1/10/2001#,"P","P")
		.AddBar(.AddItem("Task 2"),"Task",#1/2/2001#,#1/4/2001#,"Q","Q")
		.AddBar(.AddItem("Task 4"),"Task",#1/2/2001#,#1/4/2001#,"P","P")
		.set_ItemBar(0,"<P>",exontrol.EXG2ANTTLib.ItemBarPropertyEnum.exBarSelected,True)
	End With
End With

Dim h
With Exg2antt1
	.Columns.Add("Task")
	.Chart.FirstVisibleDate = #1/1/2001#
	.Chart.set_PaneWidth(False,48)
	With .Items
		h = .AddItem("Task 1")
		.AddBar(h,"Task",#1/2/2001#,#1/4/2001#,"K1","K1")
		.AddBar(h,"Task",#1/5/2001#,#1/7/2001#,"K2","K2")
		.AddBar(h,"Task",#1/8/2001#,#1/10/2001#,"P","P")
		.AddBar(.AddItem("Task 2"),"Task",#1/2/2001#,#1/4/2001#,"Q","Q")
		.AddBar(.AddItem("Task 4"),"Task",#1/2/2001#,#1/4/2001#,"M","M")
		.set_ItemBar(0,"<*>",exontrol.EXG2ANTTLib.ItemBarPropertyEnum.exBarSelected,True)
	End With
End With

With Exg2antt1
	.BeginUpdate()
	With .Chart
		.FirstVisibleDate = #1/1/2001#
		.set_PaneWidth(False,0)
		.LevelCount = 3
		.FirstWeekDay = exontrol.EXG2ANTTLib.WeekDayEnum.exMonday
		.get_Level(0).Label = "Week: <%ww%>"
		With .get_Level(1)
			.Label = "<%dddd%>"
			.Alignment = exontrol.EXG2ANTTLib.AlignmentEnum.CenterAlignment
		End With
		.get_Level(2).Label = 65536
		.NonworkingHours = 16773375
		.ShowNonworkingUnits = False
		.ShowNonworkingDates = False
		.ShowNonworkingHours = False
		.AllowInsideZoom = True
		With .DefaultInsideZoomFormat
			.InsideUnit = exontrol.EXG2ANTTLib.UnitEnum.exMinute
			.InsideLabel = "<b><%nn%></b>"
		End With
		.InsideZooms.Add(#1/1/2001 10:00:00 AM#)
	End With
	.EndUpdate()
End With

Dim h
With Exg2antt1
	.BeginUpdate()
	.DefaultItemHeight = 22
	.Columns.Add("InterectBars")
	With .Chart
		.set_PaneWidth(False,48)
		.FirstVisibleDate = #1/1/2001#
		.Bars.Item("Task").OverlaidType = exontrol.EXG2ANTTLib.OverlaidBarsTypeEnum.exOverlaidBarsOffset
	End With
	With .Items
		h = .AddItem("")
		.AddBar(h,"Task",#1/2/2001#,#1/4/2001#,"A","A")
		.AddBar(h,"Task",#1/3/2001#,#1/5/2001#,"B","B")
		.set_CellValue(h,0,.get_IntersectBars(h,"A",h,"B"))
		h = .AddItem("")
		.AddBar(h,"Task",#1/6/2001#,#1/9/2001#,"A","A")
		.AddBar(h,"Task",#1/10/2001#,#1/13/2001#,"B","B")
		.set_CellValue(h,0,.get_IntersectBars(h,"A",h,"B"))
		h = .AddItem("")
		.AddBar(h,"Task",#1/6/2001#,#1/9/2001#,"B","B")
		.AddBar(h,"Task",#1/10/2001#,#1/13/2001#,"A","A")
		.set_CellValue(h,0,.get_IntersectBars(h,"A",h,"B"))
	End With
	.EndUpdate()
End With

Dim h,w
With Exg2antt1
	.BeginUpdate()
	.Columns.Add("Hour").FormatColumn = "hour(value)"
	.Columns.Add("Type").FormatColumn = "value != 0 ? 'non-working' : 'working'"
	With .Chart
		.FirstVisibleDate = #1/1/2001#
		.set_PaneWidth(False,164)
		.FirstWeekDay = exontrol.EXG2ANTTLib.WeekDayEnum.exMonday
		.LevelCount = 2
		.UnitScale = exontrol.EXG2ANTTLib.UnitEnum.exHour
		.NonworkingHours = 1
	End With
	With .Items
		h = .AddItem(#1/1/2001#)
		w = Exg2antt1.Chart.get_IsNonworkingDate(Exg2antt1.Items.get_CellValue(h,0))
		.set_CellValue(h,1,w)
		h = .AddItem(#1/1/2001#)
		.set_ItemNonworkingUnits(h,False,"hour(value) >0 ")
		w = Exg2antt1.Chart.get_IsNonworkingDate(Exg2antt1.Items.get_CellValue(h,0),h)
		.set_CellValue(h,1,w)
	End With
	.EndUpdate()
End With

Dim h,w
With Exg2antt1
	.BeginUpdate()
	.Columns.Add("Hour").FormatColumn = "hour(value)"
	.Columns.Add("Type").FormatColumn = "value != 0 ? 'non-working' : 'working'"
	With .Chart
		.FirstVisibleDate = #1/1/2001#
		.set_PaneWidth(False,164)
		.FirstWeekDay = exontrol.EXG2ANTTLib.WeekDayEnum.exMonday
		.LevelCount = 2
		.UnitScale = exontrol.EXG2ANTTLib.UnitEnum.exHour
		.NonworkingHours = 1
	End With
	With .Items
		h = .AddItem(#1/1/2001#)
		w = Exg2antt1.Chart.get_IsNonworkingDate(Exg2antt1.Items.get_CellValue(h,0))
		.set_CellValue(h,1,w)
		h = .AddItem(#1/1/2001 1:00:00 AM#)
		w = Exg2antt1.Chart.get_IsNonworkingDate(Exg2antt1.Items.get_CellValue(h,0))
		.set_CellValue(h,1,w)
	End With
	.EndUpdate()
End With

Dim h,w
With Exg2antt1
	.BeginUpdate()
	.Columns.Add("Date").Width = 48
	.Columns.Add("Type").FormatColumn = "value != 0 ? 'non-working' : 'working'"
	With .Chart
		.FirstVisibleDate = #1/1/2001#
		.set_PaneWidth(False,128)
		.FirstWeekDay = exontrol.EXG2ANTTLib.WeekDayEnum.exMonday
		.LevelCount = 2
	End With
	With .Items
		h = .AddItem(#1/1/2001#)
		w = Exg2antt1.Chart.get_IsNonworkingDate(Exg2antt1.Items.get_CellValue(h,0))
		.set_CellValue(h,1,w)
		h = .AddItem(#1/1/2001#)
		.set_ItemNonworkingUnits(h,False,"weekday(value) in (1)")
		w = Exg2antt1.Chart.get_IsNonworkingDate(Exg2antt1.Items.get_CellValue(h,0),h)
		.set_CellValue(h,1,w)
	End With
	.EndUpdate()
End With

Dim h,w
With Exg2antt1
	.BeginUpdate()
	.Columns.Add("Date").Width = 48
	.Columns.Add("Type").FormatColumn = "value != 0 ? 'non-working' : 'working'"
	With .Chart
		.FirstVisibleDate = #1/1/2001#
		.set_PaneWidth(False,128)
		.FirstWeekDay = exontrol.EXG2ANTTLib.WeekDayEnum.exMonday
		.LevelCount = 2
	End With
	With .Items
		h = .AddItem(#1/1/2001#)
		w = Exg2antt1.Chart.get_IsNonworkingDate(Exg2antt1.Items.get_CellValue(h,0))
		.set_CellValue(h,1,w)
		h = .AddItem(#1/6/2001#)
		w = Exg2antt1.Chart.get_IsNonworkingDate(Exg2antt1.Items.get_CellValue(h,0))
		.set_CellValue(h,1,w)
	End With
	.EndUpdate()
End With

Dim h
With Exg2antt1
	.BeginUpdate()
	With .Chart
		.set_PaneWidth(False,48)
		.FirstVisibleDate = #1/3/2002#
		.Bars.Add("Task:Split").Shortcut = "Task"
		.LevelCount = 2
		.DrawGridLines = exontrol.EXG2ANTTLib.GridLinesEnum.exAllLines
		.FirstWeekDay = exontrol.EXG2ANTTLib.WeekDayEnum.exMonday
		.get_Level(0).Label = "Week: <%ww%>"
		With .get_Level(1)
			.Label = "<%d%>/<%m2%>"
			.FormatLabel = "weekday(dvalue) in (0,6) ? 'end' : value"
		End With
		.UnitWidth = 32
		.UnitWidthNonworking = -32
	End With
	.Columns.Add("Task")
	With .Items
		h = .AddItem("Default")
		.AddBar(h,"Task",#1/4/2002#,#1/8/2002#,"A")
	End With
	.EndUpdate()
End With

Dim h
With Exg2antt1
	.BeginUpdate()
	With .Chart
		.set_PaneWidth(False,48)
		.FirstVisibleDate = #1/3/2002 10:00:00 AM#
		.Bars.Add("Task:Split").Shortcut = "Task"
		.LevelCount = 2
		.DrawGridLines = exontrol.EXG2ANTTLib.GridLinesEnum.exAllLines
		.FirstWeekDay = exontrol.EXG2ANTTLib.WeekDayEnum.exMonday
		.get_Level(0).Label = "<%ww%>"
		With .get_Level(1)
			.Label = "<%dd%>"
			.Unit = exontrol.EXG2ANTTLib.UnitEnum.exHour
			.Count = 24
		End With
		.NonworkingHours = 16761855
		.ShowNonworkingUnits = False
		.ShowNonworkingHours = False
		.UnitWidth = 32
	End With
	.Columns.Add("Task")
	With .Items
		h = .AddItem("Default")
		.AddBar(h,"Task",#1/4/2002 10:00:00 AM#,#1/8/2002 2:00:00 AM#,"A")
		.set_ItemBar(h,"A",exontrol.EXG2ANTTLib.ItemBarPropertyEnum.exBarKeepWorkingCount,True)
	End With
	.EndUpdate()
End With

Dim h
With Exg2antt1
	.BeginUpdate()
	With .Chart
		.set_PaneWidth(False,48)
		.FirstVisibleDate = #1/3/2002#
		.Bars.Add("Task:Split").Shortcut = "Task"
		.LevelCount = 2
		.DrawGridLines = exontrol.EXG2ANTTLib.GridLinesEnum.exAllLines
		With .get_Level(0)
			.Label = "<%ddd%>"
			.FormatLabel = "weekday(dvalue) in (0,6) ? '' : value"
		End With
		With .get_Level(1)
			.Label = 65536
			.FormatLabel = "weekday(dvalue) in (0,6) ? 'end' : value"
		End With
		.NonworkingHours = 16761855
		.ShowNonworkingUnits = False
		.ShowNonworkingHours = False
		.UnitWidthNonworking = -24
	End With
	.Columns.Add("Task")
	With .Items
		h = .AddItem("Default")
		.AddBar(h,"Task",#1/4/2002#,#1/8/2002#,"A")
		.set_ItemBar(h,"A",exontrol.EXG2ANTTLib.ItemBarPropertyEnum.exBarKeepWorkingCount,True)
		h = .AddItem("Friday")
		.AddBar(h,"Task",#1/3/2002#,#1/7/2002 0:00:00 PM#,"A")
		.set_ItemBar(h,"A",exontrol.EXG2ANTTLib.ItemBarPropertyEnum.exBarKeepWorkingCount,True)
		.set_ItemNonworkingUnits(h,False,"weekday(value) in (0,6,5) or hour(value)<10 or hour(value)>=14")
		h = .AddItem("Till 13")
		.AddBar(h,"Task",#1/4/2002#,#1/7/2002 0:00:00 PM#,"A")
		.set_ItemBar(h,"A",exontrol.EXG2ANTTLib.ItemBarPropertyEnum.exBarKeepWorkingCount,True)
		.set_ItemNonworkingUnits(h,False,"weekday(value) in (0,6) or hour(value)<10 or hour(value)>=13")
	End With
	.EndUpdate()
End With

With Exg2antt1
	With .Chart
		.set_PaneWidth(False,0)
		.FirstVisibleDate = #1/3/2002#
		.LevelCount = 2
		.get_Level(0).Label = "<%ddd%>"
		.get_Level(1).Label = 65536
		.NonworkingHours = 16761855
		.ShowNonworkingUnits = False
		.ShowNonworkingDates = False
		.ShowNonworkingHours = False
	End With
End With

With Exg2antt1
	With .Chart
		.set_PaneWidth(False,0)
		.FirstVisibleDate = #1/3/2002#
		.LevelCount = 2
		With .get_Level(0)
			.Label = "<%ddd%>"
			.FormatLabel = "weekday(dvalue) in (0,6) ? '' : value"
		End With
		With .get_Level(1)
			.Label = 65536
			.FormatLabel = "weekday(dvalue) in (0,6) ? 'end' : value"
		End With
		.NonworkingHours = 16761855
		.ShowNonworkingUnits = False
		.ShowNonworkingHours = False
		.UnitWidthNonworking = -24
	End With
End With

With Exg2antt1
	With .Chart
		.set_PaneWidth(False,0)
		.FirstVisibleDate = #1/3/2002#
		.LevelCount = 2
		.get_Level(0).Label = "<%ddd%>"
		With .get_Level(1)
			.Label = 65536
			.FormatLabel = "weekday(dvalue) in (0,6) ? '' : value"
		End With
		.NonworkingHours = 16761855
		.ShowNonworkingUnits = False
		.ShowNonworkingHours = False
		.UnitWidthNonworking = 8
	End With
End With

With Exg2antt1
	With .Chart
		.set_PaneWidth(False,0)
		.FirstVisibleDate = #1/3/2002#
		.LevelCount = 2
		.get_Level(0).Label = "<%ddd%>"
		.get_Level(1).Label = 65536
		.NonworkingHours = 16761855
		.ShowNonworkingUnits = False
		.ShowNonworkingHours = False
	End With
End With

With Exg2antt1
	With .Chart
		.set_PaneWidth(False,0)
		.FirstVisibleDate = #1/3/2002#
		.LevelCount = 2
		.get_Level(0).Label = "<%ddd%>"
		.get_Level(1).Label = 65536
		.NonworkingHours = 16761855
	End With
End With

Dim h
With Exg2antt1
	.BeginUpdate()
	With .Columns
		.Add("Tasks")
		With .Add("Working")
			.set_Def(exontrol.EXG2ANTTLib.DefColumnEnum.exCellValueToItemBarProperty,258)
			.set_Def(exontrol.EXG2ANTTLib.DefColumnEnum.exCellValueToItemBarKey,"A")
			.FormatColumn = "(0:=round(value*24)) != 0 ? =:0 : ''"
		End With
	End With
	.Items.AllowCellValueToItemBar = True
	With .Chart
		.set_PaneWidth(False,96)
		.Bars.Add("Task:Split").Shortcut = "Task"
		.FirstVisibleDate = #1/3/2002#
		.LevelCount = 2
		.get_Level(0).Label = "<%ddd%>"
		.get_Level(1).Label = "<%hh%>"
		.NonworkingHours = 16761855
		.ShowNonworkingUnits = False
		.ShowNonworkingHours = False
	End With
	With .Items
		h = .AddItem("Task 1")
		.AddBar(h,"Task",#1/4/2002#,#1/8/2002#,"A")
		.set_ItemBar(h,"A",exontrol.EXG2ANTTLib.ItemBarPropertyEnum.exBarKeepWorkingCount,True)
		h = .AddItem("Task 2")
		.AddBar(h,"Task",#1/3/2002#,#1/4/2002#,"A")
		.set_ItemBar(h,"A",exontrol.EXG2ANTTLib.ItemBarPropertyEnum.exBarKeepWorkingCount,True)
	End With
	.EndUpdate()
End With

Dim h
With Exg2antt1
	.BeginUpdate()
	With .Chart
		.Bars.Add("Task:Split").Shortcut = "Task"
		.FirstVisibleDate = #1/3/2002#
		.DrawGridLines = exontrol.EXG2ANTTLib.GridLinesEnum.exAllLines
		.GridLineStyle = exontrol.EXG2ANTTLib.GridLinesStyleEnum.exGridLinesGeometric
		.set_PaneWidth(False,0)
		.LevelCount = 2
		With .get_Level(0)
			.Label = "<%ddd%>"
			.Alignment = exontrol.EXG2ANTTLib.AlignmentEnum.CenterAlignment
			.FormatLabel = "weekday(dvalue) in (0,6) ? `` : value"
		End With
		With .get_Level(1)
			.Label = 65536
			.DrawGridLines = True
			.FormatLabel = "weekday(dvalue) in (0,6) ? `<font ;6>weekend</font>` : value"
		End With
		.NonworkingHours = 16761855
		.ShowNonworkingUnits = False
		.ShowNonworkingDates = True
		.ShowNonworkingHours = False
		.UnitWidthNonworking = -40
	End With
	.Columns.Add("Task")
	With .Items
		h = .AddItem("Task 1")
		.AddBar(h,"Task",#1/4/2002#,#1/8/2002#,"A")
		.set_ItemBar(h,"A",exontrol.EXG2ANTTLib.ItemBarPropertyEnum.exBarKeepWorkingCount,True)
	End With
	.EndUpdate()
End With

Dim h
With Exg2antt1
	.BeginUpdate()
	.VisualAppearance.Add(1,"C:\Program Files\Exontrol\ExG2antt.NET\sample\EBN\blackbox.ebn")
	.Columns.Add("Task")
	.Chart.FirstVisibleDate = #1/1/2001#
	With .Chart.Bars.Item("Task")
		.Color32 = &H1000000
		.Height = 15
	End With
	.Chart.set_PaneWidth(False,0)
	With .Items
		h = .AddItem("Task")
		.AddBar(h,"Task",#1/2/2001#,#1/5/2001#,"")
		.set_ItemBar(h,"",exontrol.EXG2ANTTLib.ItemBarPropertyEnum.exBarColor,65535)
		h = .AddItem("Task")
		.AddBar(h,"Task",#1/2/2001#,#1/5/2001#,"")
		.set_ItemBar(h,"",exontrol.EXG2ANTTLib.ItemBarPropertyEnum.exBarColor,255)
	End With
	.EndUpdate()
End With

With Exg2antt1
	.GridLineColor = Color.FromArgb(240,240,240)
	With .Chart
		.set_PaneWidth(False,0)
		.DrawGridLines = exontrol.EXG2ANTTLib.GridLinesEnum.exAllLines
		.NonworkingDays = 0
		.LevelCount = 2
		With .get_Level(0)
			.DrawGridLines = True
			.GridLineColor = Color.FromArgb(0,0,0)
		End With
		With .get_Level(1)
			.DrawGridLines = True
			.GridLineColor = Color.FromArgb(240,240,240)
		End With
	End With
End With

With Exg2antt1
	With .Chart
		.set_PaneWidth(False,0)
		.FirstVisibleDate = #12/1/2009#
		.UnitWidth = 22
		.LevelCount = 3
		.get_Level(0).Label = "<%yyyy%>"
		.get_Level(1).Label = "<%mm%>/<%dd%>"
		With .get_Level(2)
			.Label = "<%AM/PM%>"
			.Count = 12
		End With
	End With
End With

With Exg2antt1
	.BeginUpdate()
	With .Chart
		.set_PaneWidth(False,0)
		.LevelCount = 2
		.FirstVisibleDate = #1/1/2008#
		.AllowInsideZoom = True
		.AllowResizeInsideZoom = False
		.InsideZoomOnDblClick = False
		With .DefaultInsideZoomFormat
			.PatternChart = exontrol.EXG2ANTTLib.PatternEnum.exPatternBDiagonal
			.PatternColorChart = Color.FromArgb(255,0,0)
		End With
		With .InsideZooms
			.SplitBaseLevel = False
			.DefaultWidth = 18
			.Add(#1/4/2008#).AllowInsideFormat = False
		End With
	End With
	.EndUpdate()
End With

With Exg2antt1
	.BeginUpdate()
	With .Chart
		.FirstVisibleDate = #11/19/2009#
		.DrawGridLines = exontrol.EXG2ANTTLib.GridLinesEnum.exAllLines
		.GridLineStyle = exontrol.EXG2ANTTLib.GridLinesStyleEnum.exGridLinesGeometric
		.set_PaneWidth(False,0)
		.LevelCount = 2
		With .get_Level(0)
			.Label = "<%dddd%>"
			.Alignment = exontrol.EXG2ANTTLib.AlignmentEnum.CenterAlignment
			.FormatLabel = "weekday(dvalue) in (0,6) ? `` : value"
		End With
		With .get_Level(1)
			.Label = 65536
			.DrawGridLines = True
			.FormatLabel = "weekday(dvalue) in (0,6) ? `<font ;6>weekend</font>` : value"
		End With
		.NonworkingHours = 16761855
		.ShowNonworkingUnits = False
		.ShowNonworkingDates = True
		.ShowNonworkingHours = False
		.UnitWidth = 32
		.UnitWidthNonworking = -32
	End With
	.EndUpdate()
End With

With Exg2antt1
	.BeginUpdate()
	With .Chart
		.FirstVisibleDate = #11/19/2009#
		.DrawGridLines = exontrol.EXG2ANTTLib.GridLinesEnum.exAllLines
		.GridLineStyle = exontrol.EXG2ANTTLib.GridLinesStyleEnum.exGridLinesGeometric
		.set_PaneWidth(False,0)
		.LevelCount = 2
		With .get_Level(0)
			.Label = "<%dddd%>"
			.Alignment = exontrol.EXG2ANTTLib.AlignmentEnum.CenterAlignment
			.FormatLabel = "weekday(dvalue) in (0,6) ? `<font ;6>` + value + `</font>` : value"
		End With
		With .get_Level(1)
			.Label = 65536
			.DrawGridLines = True
			.FormatLabel = "weekday(dvalue) in (0,6) ? `<font ;6>` + value + `</font>` : value"
		End With
		.NonworkingHours = 16761855
		.ShowNonworkingUnits = False
		.ShowNonworkingDates = True
		.ShowNonworkingHours = False
		.UnitWidth = 32
		.UnitWidthNonworking = 12
	End With
	.EndUpdate()
End With

With Exg2antt1
	.BeginUpdate()
	With .Chart
		.FirstVisibleDate = #11/19/2009#
		.DrawGridLines = exontrol.EXG2ANTTLib.GridLinesEnum.exAllLines
		.GridLineStyle = exontrol.EXG2ANTTLib.GridLinesStyleEnum.exGridLinesGeometric
		.set_PaneWidth(False,0)
		.LevelCount = 2
		With .get_Level(0)
			.Label = "<%dddd%>"
			.Alignment = exontrol.EXG2ANTTLib.AlignmentEnum.CenterAlignment
		End With
		With .get_Level(1)
			.Label = 65536
			.DrawGridLines = True
		End With
		.NonworkingHours = 16761855
		.ShowNonworkingUnits = False
		.ShowNonworkingDates = True
		.ShowNonworkingHours = False
	End With
	.EndUpdate()
End With

With Exg2antt1
	.BeginUpdate()
	With .Chart
		.FirstVisibleDate = #11/19/2009#
		.DrawGridLines = exontrol.EXG2ANTTLib.GridLinesEnum.exAllLines
		.GridLineStyle = exontrol.EXG2ANTTLib.GridLinesStyleEnum.exGridLinesGeometric
		.set_PaneWidth(False,0)
		.LevelCount = 2
		With .get_Level(0)
			.Label = "<%dddd%>"
			.Alignment = exontrol.EXG2ANTTLib.AlignmentEnum.CenterAlignment
		End With
		With .get_Level(1)
			.Label = 65536
			.DrawGridLines = True
		End With
		.NonworkingHours = 16761855
		.ShowNonworkingUnits = False
		.ShowNonworkingDates = False
		.ShowNonworkingHours = False
	End With
	.EndUpdate()
End With

With Exg2antt1
	With .Chart
		.set_PaneWidth(False,0)
		.FirstVisibleDate = #1/1/2001#
		.UnitWidth = 48
		.LevelCount = 2
		With .get_Level(1)
			.Label = "<%d%>"
			.Unit = exontrol.EXG2ANTTLib.UnitEnum.exHour
			.Count = 24
		End With
		.NonworkingHours = 127
	End With
End With

Dim h
With Exg2antt1
	.BeginUpdate()
	.Columns.Add("Task")
	With .Chart
		.FirstWeekDay = exontrol.EXG2ANTTLib.WeekDayEnum.exMonday
		.LevelCount = 2
		.FirstVisibleDate = #1/1/2001#
		.set_PaneWidth(False,64)
		.UnitWidthNonworking = -8
		.get_Level(1).FormatLabel = "weekday(dvalue) in (0,6) ? '.' : value"
	End With
	With .Items
		h = .AddItem("Task 1")
		.AddBar(h,"Task",#1/2/2001#,#1/4/2001#,"K1")
		.AddBar(h,"Task",#1/5/2001#,#1/6/2001#,"K2")
		.AddBar(.AddItem("Task 2"),"Task",#1/2/2001#,#1/4/2001#,"K3")
		.AddBar(.AddItem("Task 4"),"Task",#1/2/2001#,#1/4/2001#,"K4")
		.set_ItemBar(h,"<*>",exontrol.EXG2ANTTLib.ItemBarPropertyEnum.exBarColor,255)
	End With
	.EndUpdate()
End With

Dim h
With Exg2antt1
	.BeginUpdate()
	.Columns.Add("Task")
	With .Chart
		.FirstWeekDay = exontrol.EXG2ANTTLib.WeekDayEnum.exMonday
		.LevelCount = 2
		.FirstVisibleDate = #1/1/2001#
		.set_PaneWidth(False,64)
		.UnitWidthNonworking = 4
		.get_Level(1).FormatLabel = "weekday(dvalue) in (0,6) ? '' : value"
	End With
	With .Items
		h = .AddItem("Task 1")
		.AddBar(h,"Task",#1/2/2001#,#1/4/2001#,"K1")
		.AddBar(h,"Task",#1/5/2001#,#1/6/2001#,"K2")
		.AddBar(.AddItem("Task 2"),"Task",#1/2/2001#,#1/4/2001#,"K3")
		.AddBar(.AddItem("Task 4"),"Task",#1/2/2001#,#1/4/2001#,"K4")
		.set_ItemBar(h,"<*>",exontrol.EXG2ANTTLib.ItemBarPropertyEnum.exBarColor,255)
	End With
	.EndUpdate()
End With